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(new REbUCED PRICE!) 
BEYOND TRS-aO 

When MICROSOFT put Level tl BASIC 
on TRS-80, you got a glimpse of its full 
potential. 

Now Microgoft intreducet: 

TRS-80 FORTRAN 

and TRS-80 will never be the same! 



Plus 

TRS-80 FORTRAN includes the finest 
Z-80 development software available: 

Z-80 Macro Assembler 
Versatile Text Editor 
Unking Loader 
TOTAL PRICE: ^^S4Q^ 



TR5-80 FORTRAN iS supplied on 
two minidisKettes and requires a 
32K system with one disk drive. 



Order from 

MTRMO 
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SoftSide magazine is continually seeking original articles 
and software for publication. Imagination and variety in 
concept and content are the rules at SoftStde — not the 
exceptions. Articles are purchased on a per-page basis, 
based on content and applicability. Our policies with 
respect to software purchase are highly individulalized, and 
offer the programmer several options, including one-time 
publication rights, outright purchase, and royalties on sale 
of pre-recorded cassettes. For more information, please 
write: SoftSide, PC Box 68, Milford, NH 03055. 
For uniformity, we have adopted the Radio Shack TRS-80 
Level II BASIC as the BASIC dialect used within the pages 
of this magazine. It was chosen because it stands to become 
the most commonly used dialect among mocrocomputer 
users and because it shares a common heritage with the 
many microcomputer languages produced by Microsoft. 
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Outgoing Mail 



As I write this, the World Power Systems fraud has just 
been discovered. An escaped convict named Norman Henry 
Hunt bought multl page advertisements In Creative Computing, 
Kilobaud, and other hobby magazines offering a variety of 
nonexistent products for sale. This was not the first fraud for 
Hunt, who swindled the public and the same magazines in 1977 
with a company called Data-Synch. This time, the scheme 
co'lapsed because Creative Computing employees noticed that 
the I/O board advertised was missing a lot of etched circuits, 
and editor John Craig called to set up a meeting with World 
Power. Since Hunt knew Craig from his previous scheme, he 
knew his time was up, and skipped town. The two scandals have 
cost hobbyists many thousands of dollars. 

When you are spending hundreds of dollars, it pays to 
investigate the supplier carefully. A number of suspicious 
elements were present in the World Power ads. First of all, the 
ads portrayed the operation as essentially the work of one 
hobbyist, who Invented the interfaces, wrote the manuals and 
the software, and tested the equipment. With fifteen new 
products advertised In Creative Computing, there's no re alive 
capable of all that. Even Tandy Corporation, with thOLsands of 
employees, could not launch so many high technology products 
at once and do a good job (as those of us still awaiting a good 
Disk Operating System from Radio Shack know full well). 

A second suspicious element was the cost of the 
advertisements themselves. Those ads cost $1500 a page. In 
Byte, Creative Computing, and Kilobaud alone, that was about 
$15,000 worth. With only 150,000 TRS-80 owners out there, and 
non-Radio Shack equipment apealing to only a few of them. 
World Power Systems couldn't have made money If the 
products were genuine, especially since most people would wait 
to see it the ads were repeated. Then there was the offer of the 
inventor to talk to anyone, 24 hours a day. Even if one person 
could invent all those products, he certainly wouldn't have time 
to speak with every purchaser and prospect on the telephone 
and still get any work done. 

It wasn't only hobbyists who lost money on the deal. 
Distributors like California Digital made advance payments for 
equipment. The magazine advertisements were billed, not paid 
in advance. And thousands of dollars worth of computer 
equipment was ordered in the firm name on trade credit, which 
Hunt Intended to sell when he skipped out. Thanks to John 
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Craig, he was in sucli a hurry to leave that he left over $100,000 
worth behind. 

Even if we manage to avoio the outright frauds, we can 
have bad experiences with reputable firms. Some of the best 
known computer suppliers have gone under financially, firms 
like The Digital Group, Polymorphic, Imsai, TDL, and Sphere. 
Even with a healthy firm, there can be bad experiences. I am 
typing this editorial on a Micro-Computer Devices Selectra- 
Printtypewriter. When it first came to me, it didn't work. After 
$30 in long distance phone calls, and two service calls from 
IBM, during one of which the IBM repairmen talked on the 
phone to the company engineer, I sent the interface back by 
UPS at a cost of $10. One month later, it was returned COD by 
UPS, for another $10. It cost me $50, two full days work, plus a 
month of waiting to get a brand new printer working. It works 
fine now, and I'm happy with it, bu4 I know that I can expect to 
spend a fortune if it ever needs service. 

With software, there are similar problems. Some of it is 
poorly done, and even when something Is well done, it may be 
completely unsuited for our applications. For example, I still 
haven't found a word processing program that meets my 
standards. The Electric Pencil comes close, but I need to be able 
to work with lower case letters, and I don't want to modify my 
computer. Others provide for the handling of lower case, but are 
too slow in operation. 

What's the answer? Both hardware and software problems 
have the same answer ~ reviews. A good review should tell you 
what a product has to offer, what's wrong with it, and what It 
doesn't do. But even there remember: not everyone has the 
same taste, and what one person loves, another loathes. 

Since I recommend reviews, I would like to close this month 
by describing briefly a few of my favorite programs in the 
TRS-80 Software Exchange. In so doing, I realize that I will be 
slighting some good programs, but I won't be touting any that I 
personally do not consider a lot of fun. 

(Continued next page) 
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Single Player Games 

My favorites are Taipan and Space Battle. Taipan is a 

historicaf simulation of gun running and opium smuggling In 
the China Sea in the 1860's^ with piraters, loan sharks, storms, 
robbers and other hazards. If you survive the hazards, you win 
by building your shipping profits until you have a million 
dollars. 

Space Battle is the best of the Star Trek type games that i 
have yet found. In addition to challenging battle routines, 
decent graphics, and animation, there's also an economic 
element: you're a mercenary, and you must pay for the 
ammunition and energy you use, as well as funeral costs for any 
of your crew who are killed! 

Two Player Games 

I really enjoy Entrapment, which we published in SoftSide 
last month. It's short enough that It doesn't take long to type In, 
looks simple, but is lots of fun. I also have fun with Dave 
Bohlke's Baseball. With options for pitching, batting, and an 
animated fielding routine, it is very nicely done. End Zone, by 
our publisher Roger Robitallle, Is another good sports 
simulation. 

Chtldreii's Games 

School age children love Leo Chrlstopherson's games: 
Android NIm, Snake Eggs, and Life Two. I use them all the time 
to entertain the young people of the church. 

My own children play Nine Games for Preschoolers several 
times a week (it's the most requested item among the hundreds 
of games 1 have on file), and Billy, age 6, and Robbie, age 5, 
even bring in their friends to play. Needless to say, there are 
many more fine games that would be mentioned here if space 
allowed. Monthly software reviews will be an ongoing feature in 
SoftSide in the months to come as we process your responses to 
last month's reader poll. If you have tried any good (or bad) 
software lately, let us know how you feel, and watch for the 
results in the months ahead. 
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by Art Canf il 




A Single-player Game 
Based on the China Trade of the 1800's 

Ply arms and opium in exotic oriental ports, dodging pirates, 
cutthroats, usurious moneylenders and tropical storms. Should you 
arm your ship to stand and fight, or keep it light to run swiftly? Will 
the price of opium still be high in Hong Kong when you return 
laden with the stuff from Batavia? Warning: If you get a polite 
message from Brother Wu, the moneylender or Li Yuen, the pirate, 
you'd better pay attention! If you outwit your enemies, you win by 
piling up a million dollars in profits. 
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Level II, 16K- $9.95 

TRS-80 SofluiQfC CKchongc 

17 BRIAR CLIFF DRIVE MILFORD, NEW HAMPSHIRE 03055 




Call SoftsM**! 
TR8-aO HOTLINE 

603-673-5144 



TuMday •vMlngt 7 to 9:30 P.M. 
[Eaatam Uma] 
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High quality walnut 
wood'grain vinyl. Two 
inch capacity to hold 
twelve issues comfort- 
ably; rod holders won't 
deface magazines. Clear 
vinyl pocket inside front | 
for index. Use TSE 
order form, page 69. 
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Only $4.95 each 
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A Topologk Puzzl«, With Sound Effocttl 
by SotofiNMi W. GokHnb 



While dominoes are made by Joining two so uare s togcrtber, 
pentominoes are made by joining five squares J. e.: ^W or g— 
Tliere are tweive, each named after the ietter it resembles. Towln 
you must fit them together to form a larger, 60-square shape, such as 
a 6 X 10 rectangle ~ something like a jigsaw puzzle. Unfike jigsaw 
pieces, however, pentominoes can be flipped over as well as rotated. 
When you see that you have fallen into error you may remove pieces 
at will and try them elsewhere. Sounds easy? Sure it is — up until the 
last couple of pieces! An endless fascination for the dedicated 
puzzier/Tpp^nqtch graphics and sound effects. 

I ' ' Level II, 16K - $9.95 

H T|S TRI-80 lof luiofc CncIkmisc 
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Want To REALLY UNDERSTAND 
The BASIC Language? 

From the author of the highly acclaimed TRS-80 Users/ Learners 

Manual comes the handbook you've been asking for! 

The BASIC HANDBOOK is THE definitive reference and idea book, 

explaining over 50 favorite versions of the BASIC language 

in detail as used in micros, minis and mainframes. 
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(360 Pkges Soft Cover) 



$14.95 plus $1 .00 shipping 



Not a dictionary — not a 
textbool<, but a virtual encyclo- 
pedia of the BASIC language. 
Everything you need to know 
abput the most important BASIC 
statements, functions, operators 
and commands, explained in a 
manner that lets you put them to 
work right away. 

•If an alternate method to write a 
program usinjg other BASIC 
words exists, THE HANDBOOK 
shows you how. 

•If ther^ls a function needed, but 
your machine doesn't have it, 
THE HANDBOOK will give you 
a subroutine that accomplishes 
the same thing. 



With the BASIC HANDBOOK you can finally make those programs 
found in other magazines run on your computer — or know the 
reason why they can't. About the only thing it won't help you with is 
an additional 16K of memory. 

ORCIFR TODAYI tws handbook 

V/nL/Cn I \JUt\ I : is written to be used! 

TRf-60 Jaf luidfc ixchcingc 

17 Briar Gliff Drive Milford, Nfw Hampshire 03055 
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why settle for watching baseball on television 

when you can play it! With this game^ 

you can make the team, but winning may be another 

matter. A game for two players. 

by David Boh Ike 



It's the top of the third, the 
Pirates leading the Yanks 5 to 1. A 
fast balTjust above the knees, and 
Dent strikes out. One down, and 
Johnson comes to bat. A change 
up, Johnson swings ... crack! ... a 
long fly ball ... will it clear the 
fence? It bounces off the fence, the 
throw to Stennet as cutoff man, 
then to Phil Garner ... Johnson is 
safe on third. Munson is at bat, 
hits a sinker down the first base 
line, Robinson goes for it ... out of 
reach, Johnson scores, Munson is 
safe on second base. The count is 
one and one on Randolph. Here 
comes the pitch ... a bunt! 
Randolph is out at first, Munson 
safe on third. Rivers at bat, 
here comes the pitch ... Whack! ... 
that was really hit hard ... it's 
going, going, over the fence! 
Munson and Rivers score. Yankees 
4, Pirates 5, with New York at bat, 
two outs, and no one on base. 



White comes to the plate. Here's 
the pitch, a hard grounder toward 
Garner, he hits a high fly ball 
toward Omar Marino .. . 

You set the strategy for pitch- 
ing and hitting, and you have to 
move your player across the screen 
to do the fielding, but there is 
nothing cut and dried in this 
version of baseball. The catcher 
may miss a tag on a squeeze play 
at home, the shortstop commit an 
error on an easy double play ball, 
or you could even be ahead in the 
ninth by several runs, have two 
outs with no one on base, and still 
blow it! 

Sequence of Play 

Each game will be the regula- 
tion nine innings. If the game is 
tied after nine innings, you will 
need to restart the game but 
continue play as in an extra-inning 
game. Begin play by entering the 
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names of the visiting teim and the 
home team. 

The name of the pitching and 
fielding team and the options 
avaitable to you will be dispbyed 
at the bottom right comer of the 
s cr e en . Each play will begin wfien 
you deiivera pitch by pressing the 
J key for a fastball; the K key far a 
change-up pitch; or the L key for a 
sinker. 



If the 



ball 
you 



is hit by your 
must move your 
fieWer to "catd)'' the ball. On a 
groundball, your playv will be at 
the top of the screen; and the ball 
will approach you from the bottom 
of the screen. On a flyball, your 
player (and the homerun fence) 
will be at the bottom of the screen; 
and the ball will approach you from 
ttie top of the screen. To move your 
player to the left, 11010 DOWN 



the Ml aAvp Nhy; and to move 
your playv to the right, HOLD 
pOlfN Ihe li#( mmt key. You 



must mq¥e your player to intersect 
the moving ball to "catch" the 
flyball or grounder for an out. If 
you fail, the batter wilt be given a 
base hit. On oeftain oocaskMis your 
player may be positkmed correctly 
and yet miss the ball creating an 
error. If first l>ase is occupied and a 
ground baH is hit, you may be 
awarded a double play (randomly 
selected) wtien you f ieid the ball. 

After the fielding team pitches 
the bBll» the player at bat must 
select one ^f three optkxis before 
the bait rMcheS home plate. The 
optkNit aMdUbie to you will be 
displayed on the bottom left comer 
of tfie s crt en. You may press the D 
key to swing the bat; press the S 
key to attempt a steal; or press the 
A key for a bunt attempt If yoa fail 
to select an optkMi, if you swing 
and miss the ball, or if you attempt 
a steal with no runners on base, 
the pitched l>all will count as a 
strikeout. When you select the 
bunt optkm, it may be scored as a 
drag bunt, a sacrifice bunt, or a 
sujdde squeeze depending on the 
number and positkm of the base 
runners. If you swing the bat and 
hit the ball, the outcome of the play 
will depend on the fielder's 
catching the ball as described 
above. 

Play oontimies untiHhrfiBMng 
team gets three oats (haN irarini). 
At thU time the pteytos will 
interchange fielding and hitting 
responsibUities. After each half 
inning a scoreboard and box score 
card will be disp la y e d tolceep you 
updated on the game totals. 
During each haK imtim the 
number of outs and the runs sawad 



U 



this half inning will be displayed in 
the upper left corner of the screen. 
Before each pitch sequence the 
playing field and base runners will 
be displayed in the center on the 
screen . 

Fielding Strategies 

The fielding team should try to 
confuse the hitter by mixing-up the 
type of pitches delivered. This will 
result in more strikeouts, de- 
creasing the offensive players' 
chances of scoring. The longer 
you play the game, the more 
difficult it will be to strikeout the 
batters due to your opponent's 
increased experience. Therefore 
the most important consideration 
for the defensive player is to 
cleanly field the ball. Your success 
here, as with batting, will increase 
with experience. 

Hitting Strategies 

Although the player at bat has 
only three options (hit, bunt, or 
steal), the result of each of these 
will vary depending on the position 
of the base runners and number of 
outs. You will also need to consider 
the inning, the score, and the 
ability of your opponent as a fielder 
to develop a good strategy. 

If you are several runs behind it 
may be better not to take chances 
like stealing or waste an out with a 
sacrifice bunt. It may be wiser to 
swing away and hope you can get 
several hits and a rally started. 
When the score is close in the late 
innings and you get a runner on 
first or second a sacrifice bunt may 
be in order. Then a hit, or suicide 
bunt, or sacrifice fly by your next 
batter could be the deciding factor. 
In the early innings, or anytime if 
you're a gambler, a steal attempt 
is a viable option. This not only 
eliminates the possibility of a 



double play but ajso puts the 
runner in a scoring position. These 
are just a few examples of total 
game strategies. 

When you press the D key to 
swing the bat and successfully 
make contact with the ball either a 
ground ball or a fly ball will result. 
A ground ball can be scored as 1) a 
base hit single; 2) a double; 3) an 
error on the fielder; 4) a ground 
out if the fielder catches the ball; 5) 
or a double play if first base is 
occupied, the fielder catches the 
ball, and there are less than two 
outs. A fly ball can be scored as 1) 
an out if caught by the fielder; 2) a 
siqgle, double, or triple depending 
on the distance the ball is hit; 3) an 
error on the outfielder; 4) as a 
home run if the ball sails over the 
fence; 5) or as a possible sacrifice 
fly if you have a runner on third, 
less than two outs, and the fielder 
catches the ball. 



The Little 
Book of 
BASIC Style 

by John M. Nevison 

Here is the ideal reference for 
anyone who wants to write better 
programs in BASIC. The Little 
Book of BASIC Style is suitable 
for all levels ... from junior high 
school student to research 
scientist. A work meant to be read 
and reread. Achieve fluency in 
computing. 

Indexed, illustrated. 151 pages. 
$5.95 + $1.00 handling 
TIII-80 lofluKifc CMchcifioc 
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Pressing the S key for a steal 
attempt when first base or second 
base Is occupied will result in 
either a successful steal or a 
throw-out. If there are runners on 
first and third the computer will 
assume you are attempting a 
double steal. When this is suc- 
cessful you will score a run and the 
runner on first will advance to 
second. On failures, the runner on 
first or third will be picked off. 



If there are no runners on base 
and you press the A key for a bunt 
attempt it will be considered a drag 
bunt. This is scored the same as a 
single base hit when you are 
successful. When first or second 
base is occupied and there are 
fewer than two outs, your bunt will 
be a sacrifice bunt with the 
baserunners advancing one base if 
successful. For the times you have 
a runner on third with less than 
two outs, the bunt attempt will be 
scored as a suicide squeeze. 
Success here will result in the 
runner on third scoring and the 
batter advancing to first. 



Every time there is a base hit 
all runners on base will advance 
the same number of bases as the 
batter So on a single (or error) 
every runner on base will advance 
one base, on a double all runners 
will advance two bases, on a triple 
all runners will score, and on a 
homerun everyone, including the 
batter, scores. 



Scoreboard 

A scorecard will be printed at 
the end of each half inning. This 



will indicate the number of runs 
each team has scored each inning, 
a current total, and a box score 
statistics update, showing the total 
runs, hits, and errors for each 
team. For your personal interest a 
hitting percentage (hits/times at 
bat) will also be displayed in the 
box score. 




FOR YOUR INFORMATION 

Radio Shack has added the 
TRS-80 II to its product line. This 
new computer, aimed at the 
business user, runs the Z-80A chip 
at 4 megahertz, comes with 32K of 
RAM and an 8 inch, double density 
floppy disk drive with Vi megabyte 
capacity. The price is $3,450, and 
options include a systems desk for 
$350, a second drive in a cabinet 
with power supply for $1,150, third 
and fourth drives at $600 each, and 
extra memory. The system includes 
as standard features 2 RS232 ports, 
a Centronics parallel port, and a 24 
by 80 upper/lower case display. 

Another nice product from Radio 
Shack for those of you without 
$3,500 is the Quick Printer II. At 
$219 it is a real bargain, easily 
portable, versatile, and very 
handy. It uses silvered electrolytic 
paper about the same width as a 
cash register tape and is selectable 
for 16 or 32 characters per line, 
with automatic wraparound for 
longer lines. 
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* aFTSIDE PRESENTS * 

* fiLL - STffi? BfiSEBflLL * 

* BV DRVID WMS. * 

^« aX* 'JU 'If *lf >L> ^ ^ tl^ ^ ^ ^L* ^ <itr ^ ^ ^ 
•»* "T* 'T* •x* •*• T* •!■ •i* ^ •»■ *f» •f* *!• •!• •!• ■»• T* 

5REH *** DflVlD BOHLKE COGGON, Ifl flPR ?,19?9 *** 

18 DEFINTfl-V:CLEI«3^ 

20 DIM H<19>;V(19>/E<19),HT(19),flB(19) 

29 REM *** DEFINE STRINGS *** 

30 Bi*=CHR$<i88)+CHR*Ci88) :B2$=eHR$<i43)+CHR$(i43> 
32 RB$=CHR$<130)+CHR$(131)+C«$<131)+CHR$<i^) 

34 l«=CHR$(19i>:Hl$=CHR$(i3i)+CHR*<140)+CHR$<i76) 

36 lG$=STRING$d, 140) ;M3$=CHR*<176)+CHR$(140)+Cf«$<131) 

40 Ri$=CHR$(i60)+Ct^<26)+CHR*(24)+Cm$(155)+CHR$(145) 

42F2$=CHR$(164)+CHR*<187>+CHR$<17?)+CHR$<132)+CHR$<26) 

44 F1$=F2$+STRING$(4,24)+CM»(168)+CHR$<134)+CW$(164) 

46 F2$=STRIN6*(M28)+CHR$(26)+STRING$<5,24)+STR1NG$<5. 128) 

48 F3*=CHR$<160)+CHR$(187)+CHR$(1?7>+CHR*(26)+STRING$<3, 24) 

50 F3$=F3$+CHR$<16i)+CHR$<134)+CHR$<i64)+CHR$<129) 

52 F5$=CHR$(191)+CHR$(26)+a«$(24) :F5*=f5$+F5$+F5$ 

100 aS:PRINTCHR$<23) 

110 PRINT"fl L L S Tfl R B fi S E B fl LL": PRINT: PRINT 

128 INPUT"VISITORS ";V$:V$=LEFT*<V$,8) 

130 PRINT 

140 INPUT"HOME "iH$:H$=LEn*<Hf,8) 

399 REM *** MAIN Gfll€ LMP *** 

408 FOR IN = 1 TO 18 

405 ZT=IN/2: IF2T=INT(2T)THENZT=2ELSE2T=1 
410 OT=0:BF=8:BS=0:BT=0:R=0 
420 GOSU62880 

425 PRINTi256, "RUNS "jRi :PRINT@192,"0UTS ";0T; 
430 HT=0:ZH=0 

440 GOSUB3000 

450 F0RMT0888: NEXT 

500 IFOTGGOTO420 

510 IFZT=2THEN H<IN)=R ELSE V(IN)=R 



608 NEXT IN 
999 G0T0999 
1999 REM *** PRINT FIELD *** 
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2mt as . PRINTKL B2$i : PRINT§273, Bl$; : PRINTe30i> Bl$i 

2910 PRINTC«i58,RB$i -.PRINTeeee/Wli 

2026 Y=26 : F0RX=69T011?STEP4 : SET (K- V) : y=V-2 : NEKT 

2030 V=26:FORX=58TO10STEP-4:SET(K,V);V=Y-2:NEXT 
2040 IFBF=iPRINT8i71,Rl$; 

2042 IFBS=iPRINT§27,Rl$i 

2044 IFBT=iPRINT8236,Rl$i 

2100 PRINT8448, "TEfiM ftT BflT"i 

2110 lF2T=lPRINT8515,V$;EL5EPRINTi515,H$; 

2120 PRINTe498, "FIELDING TEfiH''i 

2130 IFZT=lPRINT@565,H$iELSEPRINTe565/V$i 

2150 PRINT§S41, "* KEV OPTIOtC *"; •.PRINT@?04, "* AFTER PITCH *" 

2160 PRINT0770, «fl : BUNT"i :PRINT®34, "S : STEfiL"> 

2170 PRINTi898, *'D : HIT"; 

21^ PRINTI687,'* KEY OPTIONS *"i :PRINT87K/"* C£LIVER PITCH *" 

21^ PRINT8816, "J : FftSTBflL"; :PRINT88^,"K : OfftffiE-UP"; 

2200 PRINTi944, "L : SINKER"; 

2200 RETURN 

2999 lei *** INPUT PITCH, GET SHIMS *«* 

3000 2$=INKEV$:PRINT8999,"W"; :S=0 
3010 K$=INKEV*:IFK$=""GOTO30i0 
3020 IFK$="J"Tl£«:^=d:GOTO3030 
3022 IFK$="K"THENbP=2:GOTO3030 
3024 IFK*="L"Tje«)P=3:GOTO3030 

3026 GOTO3010 

3030 V=7:PRINTe968,CHR$(31); :PR1MT§910, "????''; 

3040SET(63,Y).SET(64,Y) * 
3050 K$=INKEY$:IFK$=""GOTO3060 
3052 IFK$="fl"THENS=9:GOTO3060 
3054 IFK$="S"THENS=8:GOTO3060 
3056 IFK$=»D"THENS=1:GOTO3060 
3060PRINTe960,CHR$a0>; 
3065 IFS<1 OR S=8 GOTO3i00 
3070 IFS=9PRINT8606,H2*; :GOTO3100 

3080 IFS=1PRINT§606,H1$; 
3082 IFS=2PRINT0606,M2$; 
3084 IFS=3PRINT0606,H3$; 
30^ IFS=4PRINT§606, " "; 
3090S=S+1:IFS>4THENS=5 
3100 IFP0INT<63,V+1) GOTO3200 
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3110 IFV>31GOTO408e 

2115 RESET<62,V):RESET(64,V) 

3120 V=V+1: IFDP=lTHEfft'=V+i:GOTO3048 

2130 IFDP=2GOTO3040 

3140 IFV<26THENV=V+RND(3)-1 

3150 QOTO3040 

3199 REM *** HIT - flDVfiNGE BflLL *** 

2280 IFS=9«)T038M 

2205 ffi(IN)=f«<IN)+l 

3210 S=RN£)(2)-2 : IFS=8G0T022ie 

3220 J<=63:SS=RI«)<2) 

3230 F0Rfl=VT0V-14STEP-l 

3240 SET<X,fl):SET(X+Lfl) 

32K RESEKX, ft) :RESET(X+1. fl) 

3260 IFSS=1THENX=X+S*2 

3262 IFSS=2THEf&!=X+S 

2264 IFRf®<2)=lTHENfi=fi-l 

3270 NEXT 

3288 CLS 

3299 REM *** FLV BfiLL FIELDING *** 

3308 IFRND<2)=1GOTO3500 

3310 P=RM:)<50) •Q=832:X=RND(30> : V=F3«>(?) 

3320 PRINT§20, "USE '';CHRl<93)i" AND "jCHR$<94)i" TO FIELD BflLL ; 

. fi .^. ' ■ 
f 

3325 PRINT884, "< HOLD KEY DOWN )"; ;X1=RND(4) 

2226 PRINT0220, "FLY B fl L L"; 

2320PRINT§829,F5$; 

2350 SET(X, Y) :SET(X+L Y) : IFX>119THENXX=0:QOTO2400 

3355 PRINT§P+Q-LF2*i 

2260 IFPEEK<15168)=64THENP=P+i.iFP:>5€.T^€NP=56 

2362 IFPEEK(15168)=32THENP=P-1: IFPGTHEtP=2 

22;^ PRINT9P+Q,F1$; 

3388 IFPOINT(X.V+1)TI€N»!=1:PRINT§320. "F L Y U T i"; ;2H=i:6ti 

33% RESETCX, V) : RESET<X+i, V) : X=X+X1 : Y=Y+1 

3392 IFX>124 OR VMl THENXX=8:QOTO3400 

3394 IFRN[5(3)=1THENY=Y+1 

2396GOTO3250 

24^ IFX<2*P OR X>2*P+g GOTO 3428 
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2465 PRINT8960, "*** ERROR ***"; :taN)=E(IN)+l:HT=l:GOT 



3428 PRINTi22e, "B fi S E H I T ! ! !"i :HT(IN)=HT(IN)+1 

2436 IFV<36THENHT=4:PRINT@455.. "H 9 E RUN ! !"i :GOT(Se0e 

3440 IFX>il6THENHT=3:PRIKTC*45S, "TRIPLE ! !"i MlOSm 

3458 IF5<>60THEr#<T=2:PRINT8458, "DOUBLE !"; : 00105868 

3460 PRINTe448, "SINGLE !"; :HT=1:QOTO5000 

3499 RBI *** GROUND BfLL FIELDING *** 

3506 K=RND(86)+22 : y=41 : IFRND(4)=1TJ€NV=48 

3518 PRINT8896, "USE "i&RUSDi" Mf "iCHR$(94>i" TO FIELD ML 

3526 PRINT8938,"( MS) KEY DOWN >"; 
3538 PRINTe326, '(mM> BflLL"; 
3540 P=RND<5e)+5:Q=64:S=4M>(3)-2 
3608 SET 'XVJiSETtt+LV) 

3618 PRINT§P+Q,F2*i 

3626 IFPEEK(15168)=22THENP=P-2:IFP<4THENP=4 

3630 IFPEEK(15168)=64THENP=P+2:IFP>58THEI«>=58 

3648PRINT(?P+CbF3$i 

3650 IFPOINT(X, V-1)PRINT9320, "GROUND U T"i :XX=1:ZH=2:G0 

T(50W 

3652 IFV<3 OR X>125 m X<2 GOTO 3786 

3668 RESET(X,V):RESET(X+1,V) 

3678 X=X+S : Y=V-2 : IFY>9fM)R^8X2)=iTHENY=V-l 

3688 GOTO3680 

3706 IFX>2*F'-1 AND X<:2*P+8 ftND. RND<2)=1 (MTO 3758 

3705 PRINT§326, "B ft S E HIT"; :XX=0:HT=1:HT(IN)=HT(IN)+1 
3716 IFRND<3>=1THENHT=2:PRINTM50,"D U B L E"i 

3728 mimm 

3750 PRINT0320, "*** ERROR ***"; :HT=l:XX=e:E(IN)=E(IN)+ 
1:Q)TO5000 

2799 REM *** BLINT ROUTINE *** 

2800 X=62:F0RV=27T023STEP-i :SET<X, V) ;SET(X+L V) ;RESET(X> V) :RESET 
(X+LY) 

3801 X=X+RND(2)-2:NEXT:SET<X,Y):SET<X+1,Y) 

2816 IFBT=0 AND BF=0 flNC' 85=8 AND RND(3)=1 G0T03918 

2820 IFBT=1 AND BF=8 ftND RND(2)=1 60T02928 

2820 IFBT=0 AND BF=1 ftND 0T<2 ftND RND(4)<4 GOTO2920 

3840 IFBF=0 ftND BT=1 GOTO 2948 

2850 IFBF=1 ftND BS=1 AND BT=0 AND 0T<2 ftND RND(4)<:4 GOTO2950 
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3868 iFBF=0 fl® 81=6 AND 8S=1 AND RNDC0<2 AND 0T<2 00T03%8 

2890 PRINTC-See, "BUNT flTTEHPT FAILED !»; M^i-.miQ&m 

3318 PRINT8968, "HUSPlEEs FOR A SINGLE ! "i : HT=1 : KX=0 ; HTX IN)=HT< IN) 

+1:80105808 

3S28 PRINTC668. "SUICIDE SUCCESSFUL !".; :HT=l:X>Hi:GOTO5tie0 

2930 PRINT§960,"9RCRIFICE SUCCESSFUL "i :IFBS=lTHEt«T=l 

3932 BS=i;eF=e ;*i;GOTO5008 

3940 PRINT8960, "SUICIDE FAILED '"i.BF=l;:«=l:BT=0:GOTCi^00 

3950 PRINTe9S0, "D«»JBLE SACRIFICE ! i !";;BF=8 :BT=i:XX=i: 60105888 

3960 PRINT896e, "aCRIFICE SUCCESSFLi !»i :BT=l:BS=0:XX=l:(a)TO5080 

3^ REM *** STEELS *** 

4008 IFS=«»T041Mi 

4805 ftB(IN)=AB(IN)+i 

4010 PRINT§960, "STRUCK OUT !■'; :XX=i:GOTO5000 

4108 IFBF=0flNDBS=0ftNDBT=0GOTO4010 * 

4110 IFBS=1PRINT0960, "STEAL ATTEMPT FAILED !"; :BS=8:)«=1:GOTO508 

4115 1FBS=1G0T04138 

4120 IFBF=l»IDBT=lM>PJ©(3)=lPRINT!a96a "DOUBLE STEAL SUCCESSFUL 

i"i:HT=l:XX=e:QOTO5008 

4130 IF^=lANDBT=0AI««ND<2>=lPRINT@96a "RIWNER STEALS SECOND ! "; 
: GT=0T-1 : K^=0 : BS=1 : XX=1 : GOTO5000 

4140 IFBF=lPRINTe960. "RUNNER PICKED OFF i"; ;KK=l:eF=0;QOTOKi@6 
41^ PRINTe968, "RLINNER PIQ^D OFF !"i ;XX=1:BT=8:GOTO5!380 
4999 REM *** OIT OR SPECIffl. CASE **♦ 
5080 FORI=lTCi40e:NEXT 
5010 IFKX=8GOTO5108 
5012 0T=0T+1 

5815 IFZH=2ANDEf=lANOOT<2ANDRND<4)<4THENOT=OT+l:BF=ti:PRINTe320," 
DOUBLE PLflV M",;RETLiRN 

5030 IFZH=imDOT<2ANDBT=lTHENR=R+l:BT=0:PRINTe20,"S A C R I F I 
C E RUN"; ; RETURN 
5040 IF2H=2ANDBF=lf^DBS=lAND0T<2ANDRND(4)<4THEN0T=0T+l : BF=0 ;BS=S 
:BT=1;PRINTL^320,"D U B L E P L A V !"i ; RETURN 
5090 RETURN 
5180 IFHT>0GOTO5200 
5110 HT=l:PRINT§960,Cm$(31); :PRINTC'960, "S I N G L E i"; 

5199 REM *** ADVAfCE RLWNERS *** 

5200 IFHT<1 OR HTM GOTO5808 

5218 ON HT GOTO 5220,5388,54^,5^8 
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What's New ? 

at 

TR^80 

SofUlKMC 

EiiclKMigc 




X-WING FIGHTER II 

Chris Freund 

Piloting an X-wing fighter, you're out to 
destroy the Death Star! A new, improved 
version of an exciting space favorite. 
Level II. 16K. $8.96 

16k MEMORY KITS 

Ithaca Audio 

8 tested, guaranteed 16K RAM's. 

amazing low price. 

S99.95 

THE COUNT/VOODOO CASTLE 

Scott Adams 

Two exciting new adventures! Now in 
machine language for instant response 
and more excitement! Two adventures 
on disk S24.95 

Each adventure on tape for 16K. Level II. 
$U.96mcIi 



MMSFORTH 

Miller Microcomputer Services 

The latest in a high-level language 

software development system for the 

TRS*80. Complete with microforth primer 

manual. 

Introductory Price 
Level IM6K. Tape $49.96 

Level II. 16K. Disk $69.96 

TRS-232 

Small Systems Software 
Our first piece of hardware will interface 
your TRS-80 to a whole group of serial 
printers through your cassette recorder 

^' $49.96 

KVP-232 

Lance Micklus 

KVP adapted for serial output through 
the TRS-232. All the famous KVP 
features: Debounce. Screen Printing, 
more! Tape only $24.96 

TYPING TUTOR 

80 US 

A multi-program teaching accurate typ- 
ing skills. $19.96 



5228 IFeT=iTHENR=R+i:BT=8 
5220 IF8S=lTHEf«T=l:BS=6 
5248 IFBF=1THENBS=1 

5250 BF=l:fi:ETL!RN 

5200 IFBT=lTl€NR=R+i:BT=0 

5316 IFBS=lTHENR=R+i 

5320 IFBF=lTHENBT=l:eF=0 

5320 BS=l:RETl«<N 

54^ IFBT=iTHErK=R+i 

5410 IFBS=1THENR:=R+1:BS=0 

5428 IFeF=lTHENR=R+l:BF=0 

5430 BT=i: RETURN 

55M R=R+1 : IFBT=1TI€NR=R+1 : BT=0 

5510 IFBS=lTHENR=R+l:BS=e 

5520 IFBF=lTHENR=R+i:BF=8 

5520 RETURN 

7999 m[ *** SCOREBOflRD flf© BiDXSCORES *** 

80^ CLS:F^INT"R L L S T fi R B fi S E B fi L L» 

8020 Fa?I=lT018;F0RJ=iT05 

8020 PRINT§I*4+J*64+125, L:t«$(19i)i 

8040 NEXTJ, I 

8045 PRINT82%,STRII«j$<56,140>i :PRINT&2£!4,STRING$<56/i48); 

8850 F0RI=lT09:?RINT!»I*4r2eMi :NEXT 

8060 PRINT8228, V$i :PRINT8448,H$; PRINTi?242, "TOiai"; 

8065 PRINTei^/'INNire-i 

8070 HS=0 : VS=0 : EH=0 : EV=6 : HH=8 : HV=e : BH=6 ; BV=6 

8108 FORMTO IN:2T=I/2:IFZT=iNT<ZT)THENZT=2ELSE2T=l 

8110 IF2T=2(a)TCei50 

8120 VS=VS+V< i > : EH=€H+E ( I ) ; HV=HV+HT ( I ) : BV==8V+KB( I ) 
8128 PRINTII*2+23& V< I ); : QOTO8280 

S158 HS=HS+H< i ) ; EV=EV+E( I ) : HH=+«+HT( I > : 8H=8H+ftB( I > 

8170PRINTei*2+456,H(I)i 

8200 NEXT 

8210 PRINTe7L 'lifSi :PRINT§499,HSi 

8212 Q0SUBd488 

8215 IF IN=18 G0T082^ 

822^ PRINT8822, »PKSS =ENTER= TO CCWTINUE , . . "; 

8228 INPUT2*; RETURN 

82ee PR1NT§822, "PRESS =ENTER= FC« ANOTHER SfflE. " 

8210 F1?INT''0R ?m EXTRfi imimS - % :IMPUT2$:Rl*i 
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PRINT857S, "BC« SCORE : 
HITTirC X"i 



RUNS 



HITS 



ERRORS 



8418 
8420 
8438 

8448 
8458 

8455 
8460 
8478 



PRINTC'645,Vli 
PRINT@660,VSj 
PRINT867LHVi 

PRINTC*682>EV. 
PRINTe695, ""; 



PRINT8789, H$; 
PRINT§724,HSi 
PRINT§725,HH; 

PRINTe746,EHi 
PRINTUSING". «##"; HV/BV; 



IFBH=8PRINTC'759> ". 886"; : GOTO8470 /t 

PRINT@759. ""; :PRINTUSING». ###";HH/BH;^r<^«' 
RETURN - .- 1 / 





IPiiPf raimiminf Ilin 




Enter from command mode: 

CSAVE'TILENAME'": FOR X = 1 TO 2000: OUT 255, 20: NEXT: 

CSAVE'TILE": FOR X = 1 TO 2000: OUT 255, 20: NEXT: 

CSAVE'TILENAME'' 

Try this to get 3 dumps with blank spaces in between without 
having to sit and wait to type in the next CSAVE. You can have a 
snack while you wait. 

The OUT 255, 20 keeps the motg^r running on the recorder to create 
the space between dumps. Changing "X" changes size of the 
space. 

Doesn't work on "CLOAD" ! 
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ItafiMfiilMf tlw Qood OM Dsys? . 
You on nriplum tfiiwl 




Level I In Level II 



by APPARAT 

Level I BASIC interpreter loads in top 
4K of any 16K Level II TRS-80. 
Allows unmodified load, run, and 
CSAVE of Level I programs — no 
conversion hassles! Great for teach- 
ing beginners, young and old. to 
program In BASIC. 



/ \ ilVlystam" tape far Uval li, 16K — $1S.OO 



"iPffiS^®© feSteDSit?® SaglksGD®® 

17 Briar aiff Drive Mllfbrd, New htenpshire 03066 





POBeRM 
MiMer J^NM MOSS 

Rush me the next 12 issues of SoftSkle. 

DUSA bulk-Sis 1 yr. aS2M yrs. DCAN ADA/MEXICO $22 1 yr. 
DUSA first dass S22 1 yr. DOVERSEAS airmail $27 1 vr 

DAPO/OVERSEAS surface $22 lyr. Please ramH in US fends ONLY 



Credit Card 



t:aOO»:3P ffMHw Vmum 



Exp. Date. 
Signature. 

Name 

Address 

aty 



.interbank # (M/C only). 



.State. 



.ZIP. 



Balloon Race 



Rise 

far above 

the surface 



From Presque Isle, Maine 
to Pans, France, you must 
control your flight by varying 
height according to your knowledge 
of weather conditions, wind speeds 
and directions at various altitudes 
Regulation of gas volume and 
ballast will cause the balloon to 
ascend or descend Radio contacts, 

by Dean 




Become 
part of 



the wind! 



if and when you can make 
them, occasionally give you 
your position over the Atlantic 
You can see storm clouds closing in 
and your horizon in the distance If 
you stay out of the drink and land 
successfully nearest Pans, you 
win' One to three players 
Level II, 16K $9.95 

Powell 




rfi 



TRf -M) Sof liiKMC CKdKiii9« 



nt^CmOrhm ymttt^, mm Hmnp§Mn OMM 




• • 




lAHTKBB 





by Al Lowe 



Here is a computer version 

of the popular party game. 

Roll your dice, take your 

chances, try out your strategies, 

and yell loud enough to let the whole neighborhood 

know when you get Yahtzee! Call your friends, get 

the pop and potato chips, and settle in for the winter 

six months early. 

■18 CLS;RftNDOri 

40 PRINT: PRINT 

58 PRINTCHR$(23): PRINT -.PRINT: PRINT" V R H T 2 E E" 

68 PRINT; PRINT: PRINT: PRINT" BV flL LOWE" 

78 CLEftR 488 

88 DIM SO.m-.bm P$(3):DII1 GT(9):DIM 2(6) 

100 FCiR T=l TO 6 

110 FOR D=l TO 6:REflD N:D$<T)=D$CT)+CHR$(N):N£KT D 

128 FOR Dl=l TO 6:REflD N:Di$(T)=Dl*(T)+CHR$<N):NEXT Dl 

120 f€XT T 

140 CLS:PRINTCHR$<23): PRINT: PRINT :PRINT»DO YOU l-JflNT INSTRUCTIONS 

?"i :GOSUe 80e« 
145 CLS 

158 IF If="V" THEN 10880 

160 CLS:PRINTCHR$(23;):PRINT:PRINT;PRINT"ENTER Tt€ NUMBER OF PLfiV 
ERS":GOSUe 8088 
165 F1=I:IF PL=0 Tf£N PL=1 

170 FOR H=l TO 1:PR:]NT:PRINT"ENTER Fih't1:kS NfihE".; : INPUT P$(fl):P( 
ft>=fl:NEXT fl 
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180 U$=''#««'':L$=l>lkING$(64, "-"):CL*=STRIN6$(64, 
9/' ") 


" «):C9$=STRING$( 


198 S$(l)=»Or€" :S$(2>="TH0" :Sf <3)="THREE" 


:S$(4) 


=»FOUR" 


200 '• *** DRflW Sa?EEN *** 






210 CLS:PRINT(?192,L$i :PRINTe320,Ui 






220 PRINT" (1) flCES. 




<8) 4 OF ft KIND 


238 PRINT" <2) TiCiS 




(F) FULL HOiJSE. 
(S> SHflLL bikfll 


240 PRINT" G> THREES 


GHT" 






250 PRINT"(4) FOJRS 




<L) LfiRGE STRfll 


GHT" 


260 PRINT" (5) FIVES. 




(Y) V fi H T Z E 
(C) CHANCE.. .. 


E " 
270 PRINT" (6) SIXES 

K 


275 PRINT" (?) 2 OF fi KIND. . . " 






?30 PRINT 






300 IF TT=PL*12 THEN 9000 






310 TT=TT+i 






328P=P+1:IF P>PL THEN P=l 






325 «=0;PRINTe64,CL$i :PRINT@t28,CL$i 






338 PRINT&6, " ******* '•p$(P)"'S 


TIRN ***** 


« * *«; 






340 ft=403:TR=0 






350 FOR T=i TO i3;IF T=8 THEN fi=442 






365 IF S<P;T)=0 then PRINTeft, " "iELSE PRINTefi, USING U$iS<P,T), | 


367 IF S(P.T)<0 THEN PRINT&fi," **"; 






370 IF S<P,T)>0 THEN TR=TR+S<P/T) 






375 IF T=6 TI€N IF TR>62 THEN PRINTC*900, "i 


KiNUS 


35"; :TR=TR+i5 


3^ IF TR<C63 Tt€N PRINT090ti, « 






390 fl=fl+64:NEXT T 






395 PRINT0925, "TOTAL "iTR; 






297 GT<P)=TR 






399GOTO8100 






4% GOTO 606 






450 '*** ROLL FIL THE DICE *=** 






460 fi=67 
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470 FOR M TO 5:R=RND<6);PRiNTefi;D$<R)i :PRINTC<'H+64,Dl$(R)i :R=fl+ 

i2:2(T)=R:NKT T 

480 GOTO 480 

608 ■■*** ROLL SOME DICE *** 

685 M=M+1;IF M>2 THEN 1888 

618 PRINTe256,CL$.i ;PRSNTC'256, " RE-ROLL WM tlflNV V77 PR 

ESS E TO ENTER SCORE ".: :ijOSUB 8008:K=I 

612 IF I$="E" THEN 1688 

614 IF Ki OR I>5 THEN 616 

615 IF K=5 mn FOR T=l TO 5;ft<T>=T:NEKT T;GOTO 658 
61? F« T=l TO 5;ft(T)=8:NEJ<T T 

628 PRINTC<256,CLI; :PRINT@2?5< "l-WICH "S$(K)" >". :Fi=2 

630 FOR T=i TO K:60SUB 80e8:PRINT8289+fl. h :fi(I)=I:H=fi+2:NE>a T 

650 fl=67 

651 FO? T=l TO 5 

652 IF ft(T)=T T^€N PRINT§fi, '^ "i :PRINT§fl+64, " 

f 

653 fHI+12:NEXT T:FOR T=1TC600:^EXT T:fi=6? 
660 FOR T=i TO 5 

670 R=RND(6) 

680 IF fl(T)=T THEN PRINT§fl,D$(R); :PRINT8fi+64,Dl$(R)j :Z(T)=R 

690 fl=fl+12:NEXT T:PRINT8256,C:L$.: :IF MO THEN 601 

1008 PRINTi?256. CL$; :PRiNT8280, "SCORE IT"; .GOSUB 8888 IF I> 
8 THEN 1000 

1805 IF I>0 THEN 1868 

1010 IF I$="F"THEN IF S<P,9>=8 THEN G&SUB 2888: IF H=ii THEN S(FV 

9)=25:G0T0 12M ELSE S(P,9)=-1:G0T0 1288 

1828 IF I$="S"THEN IF S(P, i0)=8THEN GOSUB 2188: IF H->1 T^£N S(P 

,10>=30:(S)TO 12^ ELSE S(P,10)=-1;GOTO 1288 

1030 IF I$="L"THEN IF S(P, 11>=0THEN GOSUB 2100: IF H=2 THEN SCP,1 

1)=40:GOTO 1280 ELSE S':P,11)=-1:G0T0 1280 

1640 IF I$="V"THEN IF S(P.. 12)=0THEN GOSUB 2000: IF H=25 THEN S(P. 

12)=50:GOTO 1200 ELSE S(P,12)=-1:G0T0 1288 

1045 IF I$="V" THEN IF S<P,12»0 THEN GOSUB 2006: IF H=25 THEN S( 

P, 12)=S(P, i2)+50 : I=Z<3) : NN=99 : GOTO 1060 

1050 IF If="C"THEN IF S<P, 13)=0THEN F(»? T=l TO 5:S(P,13)=S(P..ii) 

+Za):NEXT T:GOTO 1280 

1055 GOTO 1000 

I860 ON I GOTO 1100.1110,1120,1130,1140,1150,1168,1178 

1100 IF S(P,1>O0 THEN 1500 
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1183 FOR T=l TO 5: IF Z(T)=1 THEN S(P, 1)=S(M)+1 

1185 NEXT T: IF S(M)=8 THEN S(M)=-1 

1107 GOTO 1286 

1110 IF S<P,2)O0 THEN 1588 

1113 ¥m T=l TO 5; IF Z(T)=2 Tl€N S(P, 2)=S(P, 2>+2 

1115 NEXT T : IF S(P, 2)=0 THEN S<P, 2)=-l 

1117 GOTO 1200 

1120 IF S(P,3)O0 THEN 1508 

1123 FOR T=l TO 5: IF Za)=3 THEN S<P, 3)=S(P, 3)+3 

1125 NEXT T: IF S(P>3)=e THEN S(P,3)=-1 

1127 GOTO 1280 

1138 IF S<P,4)Oe THEN 1588 

1133 FOR T=l TO 5: IF Za)=4 THEN S(P, 4)=S(P, 4)+4 

1135 NEXT T : IF S(P, 4)=e THEN S(P, 4>=-l 

1137 GOTO 1288 

1148 IF S<P,5)08 THEN 1588 

1143 FOR T=l TO 5: IF Za)=5 THEN S<Pi 5)=S(P, 5)+5 

1145 J£XT T:IF S<P>5>=8 WH S(P,5)=-1 

1147 GOTO 1200 

1158 IF S<P,6)Oe THEN 1588 

1153 FOR T=l TO 5: IF Za)=6 THEN S<P, 6>=S(P, 6>+6 

1155 NEXT T: IF 5<P,6)=8 THEN S(P,6)=-1 

1157 GOTO 1280 

1160 IF S(P,7)=0 THEN FOR T=l TO 5:S(P,7)=S(P,7)+Z<T):NEXT T 

1163 60SUB 2088: IF H<11 THEN S(P,7)=-1 

lies GOTO 1268 

1178 IF S<P,8)=8 THEN FOR T=l TO 5:S<P,8)=S(P,8)+Z(T):NEXT T 

1173 G0SU8 2000:IF Ha7 THEN S<P,8)=-1 

1175 GOTO 1200 

1288 '*** PRINT SCORE *** 

1210 fi=403:TR=0 

1220 FOR T=l TO 13: IF T=8 T«N fi=442 

1230 IF S<P,T>=0 THEN PRINT8ft, " ";ELSE PRINT«l USING U$;S(P,T) 

i 

1240 IF S<P,T)<0 THEM PRINTifl," **"i 

1243 IF S(P/T)>e THEN TR=TR+S(P,T> 

1244 IF T=6 THEN IF TR>62 THEN PRINT8980, 'BONUS 35"; :TR=TR+35 

1245 IF TR<63 TJCN PRINTe^0, " "i 
1250 fl=ft+64:NEXT T:PRlNTfe25,"iU'^ "iTKr 
1255 6T(P)=TR 
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1258 IF m=3S Tt£N 1386 

1260 FOR T=l TO 100:I€XT T;60T0 286 

1306 ■■*** THIS SECTION FOR DOUBLE VfiHTZEE ONLV *** 

1228 NN=0:FOR T=256 TO 218 : PRINTC-L " * "i :^EJ<T T 

1220 PRINTe256, " VOU JUST HAD R DOUBLE YRHTZEB VOU GET fiNO 
T«R TIRN "i 

1225 11=1 

1240 FOR T=l TO 2006: NEXT T.QOTO 458 

1500 '** S18 CHECKS FOR DOUBLE ENTRY aND YRHT2EE ** 
1518 IF NN=99 THEN 1208 

1520 PRINTC'256. CL$; :PRINTe256, '' ? ? ? ? YOU'VE SCORED THAT C»£ 
^FOI€ i ! TRY RGflIN ? ? ? ? "; 
1560 FOR T=l TO llll:l€X.T T: GOTO 1088 
2008 '*** CHECK FOR ILLEGLE SCORING **-* 
2018 H=0:J=0:K=«:L=e 
2820 FOR T=l TO 5:F0R V=l TO 5 
2828 IF 2<T)=2(Y> THEN H=H+1 

2648 NEXT V:NEXT T 
20^ RETURN 

2188 H=8•.Hi=0:H2=8:H3=0:H4=8:^5=0:H6=0 

2118 FOR T=l TO 5 

2120 IF Z(T)=1 THEN Hl=l 

2130 IF Z<T)=2 THEN H2=i 

2148 IF 2(T)=2 THEN H3=l 

2158 IF Z(T)=4 THEN H4=l 

2168 IF 2<T)=5 THEN H5=l 
2178 IF Z(T)=6 THEN H6=l 
2188 NE>>rr T 

21^ IF Hl+H2+H2+H4=4 Tf£N H=l 
2^ IF H2+H2-tH4+H5=4 THEN H=l 

2218 IF H2+H4+H5+H6=4 THEN H=l 

2228 IF Hi+H2+H3+H4+H5=5 THEN H=2 

2228 IF H2+H2+H4+H5+H6=5 1¥EH H=2 

2248 RETURN 

68^ '■ *** CH?$(DftTfi) FOR DRfiWING DICE. *** 

6810 DATA 191,191,159,175,191,131 

6828 DATA 143,143,142,143,142,142 

6838 DATA 191,191,191,191,179,191 

6840 DATA 143, 148, 143, 143, 142, 143 

6850 DATA 191, 19L 159, 175, 179, 191 



29 



6860 DfiTfl 142,140,142,142,143,142 




6670 DftTfl 191,179,191,191,179,191 




6880 DflTfi 142,140,142,142,140,142 




6090 DfiTR 191, 179, 159, 175, 179, 191 




6180 DflTfl 142,140,142,142,148,142 




6110 DflTR 191,179,183,187,179,191 




6120 DfiTR 143,140,141,142,140,142 




8000 I$=»". •■>** INKEV$ INPUT 


*** 


8010 I$=»fi<EV$:IF 1$="" mn 8810 




8020 I=VflL(I$):RETURN 




8820 •' *** 


*** 


8180 '*** SPECIAL SUB *** 




8102 PRINT8256,CL$i 




8104 PR1NT§256, "*«**** * 


THIS IS YOUR FIRST ROLL * 


1|C 1|! « * « I|C « *"i 




8115 fi=67 




8128 FOR T=l TO 5:R=RND<6):PRINTiafi,D$(R); :PRINTefl+64,Dl$<R); :2(T 


>=R:fl=fi+i2:F0R 1.1=1 TO 100:NEXT M:NEXT T 


8140 i1=H+l: GOTO 600 




8990 ■' ♦** TOTRL UP SCORE S CHECK FOR RECORD BREAKER *** | 


9000 RC=260:RCI="AL LOWE" 




9018 CLS:PRINT"TH£ RECORD FOR THE HIGHEST SCORE IS. . . "iRC 


9015 PRINT-RND WflS SET BY "iRCIiPRINT 


9028 FOR T=l TO PL 




9020 PRINTP$<T>i "'S SCORE IS "; 


GT<T);PRINT 


9048 IF 6T(T»RC THEN PRINTP$(T)i " 


HAS BERTEN THE RECORD BY»iGT( 


T )-RCj "FDINTS. « : RR=99 : PRINT 




9050 NEXT T 




9054 PRINT 




9055 IF RR=99 THEN PRINT"TO ENTER VOUR SDDRE INTO THE RECORD, ED | 


IT LINE 9000". END 




9989 QOSUB 8800 




9999 RUN 




18080 CLS: ' *** INSTRUCTIONS 


*** 


10020 PRINT" V R H T 


Z E E" 


10860 PRINT"YflHT2EE CRN BE PLflVED BV UP TO HIKE <9) PLflVERS. " 


10670 PRINT"VOU NEED NOT USE THE ENItR KPy ECEPT TO ENTER THE 


PLAYERS." 




10080 PRINT"NAMES. " 
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18890 PRINT"THE COMPUTER i4ILL ROLL THE DICE FO? VOU TfC FIRST TI 

HE." 

18108 PRINT"TJO VOJ HUST CtCIDE H(W tlWIY DICE VOU WISH TO RE-RO 

LL • 

18118 PRINT" IF YOJ M NOT WISH TO RE-ROLL 1\E DICE. PRESS E" 

10128 PRINT" VOJ MUST T^€N CmOSE WHICH CfiTIGORV TO SCORE IT UNDE 

R. " 

18138 PRINT"'THE COMPUTER WILL THEN COtf UTE VOUR SCORE. " 

18140 PRINT"IF WM SCORE IN THfiT CFITIGORV IS ZERO THEN IVE COMP 

UTER WILL" 

10158 PRINT-PRINT ** AND TttflT SECTION CRN fWT BE SCCRED flGfil 

N" 

10168 mm'm sectiw mv be sca?D Ma?E thrn oncb impi for" 

10178 PRlNT"YflHT2EE. " 

18188 PRINT : PRINT" PRESS SPfiCE BfiR TO CONT. " 

18190 GOSUB 8^:aS 

18200 PRINT-EXflMPLE. " 

10210 PRINT :PRINT"VOUR FIRST YflHTZEE HILL SCORE 50 POINTS. « 
18228 PR1NT"TJ€N LETS SflV VOJ GET ft SECOf© VmTZEE WITH 5 FOJRS. 

18230 PRINT"IF VOJ HfiVE NOT SCtKED THE FOUR'S VET. VOU WILL 
18248 PRINT"WflNT TO ENTER IT tJNDER VflHTZEE. IT WILL GIVE VOU" 
18258 PRINT "flNOUTHER 58 POINTS, PLUS ENTER ft SCORE OF 28 UNDER" 
18260 PRINT"THE FOUR'S. IF THE FOUR'S HfiVE flLREf©V BEEN SOJRED" 
10270 PRINT "YCKJ WILL GET ftfffiUTHER TURR " 

10280 PRINT :PRINT"SO ftLfcfiY'S ENTER FIVE OF fi Kit© ftS VfWTZEE " 
10999 PRINTe985, "PRESS SPACE Bffl? TO CCWT. ".: :60Slffi 8080: GOTO 160 



HistogrQph/ScQttergrcMii 

by Gary S. Breschini 

Histograph constructs a five- to Scattergram plots XY infor- 

fourteen-element bar graph, mation for visual analysis of 

User specifies the range of data trends. Extensive documen- 

and number of bars^ in graph; tation. 

program sets upper^ and lower Level II, 16K $9 95 

response limits for each bar 
element. Graph composed in 
"real time" as data is entered. TRI-60 SofluiOfC EMchOAQC 
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KEYBOARD- so 

by John Adamson 

Turn Your TRS-80 into an Electronic Organ 

With KEYBOARD-80 

And Any Audio Amplifier! 

Play your favorites, from Scott Joplin to Paul McCartney, on a 
full 3-octave chromatic scale. Although you can record your 
music for later playback, the unique live keyboard lets you listen 
as you play. Machine language tape for 16K, Level II TRS-80. 

Level II, 16K Tape - $9.95 

TRI-OO lof luKifC Ciich(in9tt 

17 BRIAR CUFF DRIVE MILFORD. NEW HAMPSHIRE 030S5 
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SMALL SYSTEMS SOFTWARE 



BREAK THROUGH THE 5-WALL BAR- 
RICADE WITH THE HIGH-SPEED BALL 
AND KEYBOARD ODKTROLLED PADDLE! TRAP THE BALL 
AMONG THE WALLS AND WATCH IT DESTROY THE 100 
BLOCKS! SELECT FROM 8 SPEEDS, 4 PADDLE SIZES, AND 3 
BALL-ANGLE LIMITS TO CHALLENGE EXPERTS AND BEGIN- 
NERS THREE SCORES WITH THE BEST OF EACH SAVED TO 
BE CHALLENGED BY OTHER PLAYERS. NOBODY CAN 
ACHIEVE THE MAXIMUM WBGHTED SCORE OF 33,000! 4K, 
LEVEL I AND II. 

Machine language action game for TRS-80's — $14.95 



TcC TRS-80 Sofluioic CKchQAQC 

^ 17 Bnar Clill Drive Millord New Hampshire 03055 
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PORK BARREL 




THE GAME 

CONGKESSMEN 

NEVER STOP PIAYING — REELECHON By Rev. GMfge 

Okay so you've just been elected to Congress. You're young 
and looking forwaro to a long and rewarding career. And why 
shouldn't you be? Everyone loves you, or you wouldn't have been 
elected in the first place. It should be a snap, right? 

The next thing you know, you're seated in the halls of 
Congress, tossing around billions of dollars like confetti at a ticker 
tape parade; Department of Defense, 340 billion last year, and 
looking for 380 billion this year; HEW got 30 billion last year, and 
say they need 10 billion more. By now, you're beginning to 
wonder— what about my effect on unemployment? 

Just when you're beginning to think that it might pay to keep a 
lower profile, (at least until you get the hang of it), tne agenda 
moves into roll call voting. Sure you've got all the figures. You 
know what percentages of your constituency are blue collar 
workers, unemployed, elderly, farmers, etc., but the word is out 
that the President wants you to vote ''yea" on this issue, and 
'*nay" on that issue, and you wonder ... 'Why is he doing this to 
me? ' And the lobbies! Your district is telling you NO on increased 
Social Security benefits, but the liberal lobby keeps saying YE$, 
YE$, YE$, and after all . . . what about reelection? 

That's the scenario in this superb simulation from the author of 
Santa Paravia, 'Round the Horn, Troll's Gold. After you and up to 
5 other players have finished your term in the hot seat, comes the 
moment you've been waiting tor as you're up for reelection. How 
you fare depends entirely on your ability to be all things to all 
people at all times. 
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Available for Level II, 16K TRS-80 Microcomputers — $9.95 

TRS-60 SoftiuQfC CHchongc 

17 Briar Cliff Drive Milford. New Hampsliira 03055 
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Accounts 
Receivable 11 

SOFTWARE iBIVICES 



A comprehensive accounts receivable program 
with billing package offering menu oriented 
operation, audit trail with running balance for eich 
account, date, description and exact amount for every 
filed transaction, special input procedures, automatic 
error checks — uses random data files. 

Tht packaft nMcii dhws y«i Ik 

MainUln receivables files on 200 aooounts 
Add new accounts any time 
Chance information 
Perfonn selective information saareh 
Assign terms 

Print listinf of overdue accounts 
Print st a te m en ts autotilaticaWy for unpaid accounts 
Print a custom messaie on statements 
Print mailing labels 

Print an accounts receivable lummary for all account^ or unpaid 
accounts only 
• Post charges and credits at the keyboard 

Package includes one master diskette, one data diskette, 
and in depth instruction manual. Requires TRS-80 with 
16K memory, two disk drives, and line printer. $79.95 



Tjfi 



TRS-60 Sofluicire CKchongc 

17 Briar CiitI Drive Miiford, New Hampshire 03055 
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Business So/twdre 

DISK PAYROLL 

Written to be a useful tool for the individual who has joined the 
growing number of men and women using microcomputers in 
their business to save time and increase accuracy in record 
keeping. Even if you have never seen a computer before, you 
can run DISK PAYROLL. The programs included on the 
diskette are interactive, that is, they ask questions in English 
and expect you to type answers on the keyboard. All data files 
are handled on your diskette automatically — no cassette tapes 
are necessary. 

A comprehensive 24-page manual with step-by-step in- 
structions on how to run each program is Included in the 
package. Quarterly summaries as well as payroll information 
can be printed on line printer. Programs supplied on a high 
quality 5V4 inch diskette. Price, $59.95 



INVENTORY SYSTEM 2.2 

This program allows for the creation, maintenance and review 
of over 2000 Inventory items per clean diskette. The system is 
designed to operate under Radio Shack BASIC, D0S2.1, with a 
minimum memory allocation of 16K RAM. Data maintained for 
each inventory item includes: description (up to 15-character 
length in any combination of alphanumerlcs or punctuation), 
vendor name of code (any 8-character alphanumeric or 
punctuation combination), quantity of inventory item on hand, 
cost per unit, retail price per unit, reorder point, quantity sold, 
quantity purchased. 

Inventory System 2.2 Is based upon the utilization of **random 
files" with 6 sub-records per random file buffer. This method of 
data storage allows for maximum utilization of diskette space 
and is brief ly discussed In the Radio Shack DOS 2.0 Users 
Manual. It is assumed the user is familiar with the TRS-80 
operation methods as well as Radio Shack Disk BASIC and 
DOS 2.1. If you need information in depth, consider Inventory 
2.3 as an alternative. 

Price, $59.95 

Tcf TRf-80 SoftuiQfc CKchcinQe 

^P 17 BRIAR CLIFF DRIVE MILFORD. NEW HAMPSHIRE 03055 
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JtiRJiik. Presents: 

A Page from The BASIC Handbook by David A. Lien 



The STRING$(n ASCII code) function is used with the 
PRINT statement to print an ASCII character (n) number 
of times. 

For example, print string$(i0,65) prints the ASCII 
character A (ASCII code 65) ten times. 

TEST PROGRAM 

10 REM 'STRINGS' TEST PROGRAM 

20 PRINT STRING$(23,42): 

30 PRINT "STRINGS FUNCTION "; 

40 PRINT STRINGS(23.42) 

99 END 

SAMPLE RUN 



STRINGS 



Function 



*•***•*•******••******« STRINGS FUNCTION*********************** 

VARIATIONS IN USAGE 

Some computers (e.g. the TRS-80 Level II) allow string characters (enclosed in quotes) or 
string variables in the STRINGS function. 

For example, 10 PRINT STRiNG$( 10," A") 

prints the letter A ten times. 



I0AS»"B" 

20 PRINT STRINGS(5.AS) 

prints the letter B five times. 
TEST PROGRAM 

10 REM 'STRINGS' TEST PROGRAM 

20 PRINT "ENTER ANY UETTER. NUMBER OR SYMBOL." 

30 INPUT AS 

40 PRINT STRINGS(20."."): 

50 PRINT STRINGS(20.AS) 

99 END 



CoDvriffht ©1978Coinpusoft, Inc. 
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SYSTEM' 

con 



by Kalman Bergen 



At last! A program which 
allows you to make backup 
copies of object ('/system'') 
tapes. No more worrying that 
a dropout will send you 'back to the Shack' for a new 
editor-assembler or chess program. Features include copy, 
verify read, rename, and verify write. No knowledge of machine 
language required, so order yours today ! 

For16K, Level II -$9,95 



TRI-80 lofluiQfC CKchciAoe 



IRK MEMORY KITS 

■ WLS 1 1^ by ITHACA AUDIO 



Everything you need to up-grade your 
TRS-80 to a 16K system 

• 8 tested and guaranteed 16K RAM's 

• New programming jumpers 

• Easy-to-follow instructions 

• Only tool required is a household screwdriver 

Each kit is 100% guaranteed against failure. Add high quality, 
high density memory for less than you would expect to pay! 



$99.95 



Tfi 



TRS-60 SofluKife f xchofioc 

17 Briar Cliff Drive Milford, New Hampshire 03055 
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Amazing 
MAZES 

by Robert Wallace 

Remember trying to teach a rat to run through 

a maze in psychology class? AMAZING MAZES 

gives you a rodent's-eye viewpoint as you attempt 

to escape from a sinister maze in a race against 

the clock. Keep Moving ... whenever you stop 

to catch your breath, the passageways 

change! Excellent use of high-speed graphics 

and real-time input make this a fast-paced 

challenge of skill and dexterity 

For 16K, Level 11 
Amazingly priced at only $7.95 




TflC TRI-aO SeftaMM CncImmc 
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MAIL 
LIST II 



by BUS-aO 



IDEAL for all sorts of small 
mailing applications, such as 
small businesses, clubs, church- 
es; for advertising, newsletters, 
announcements, press releases » 
endless possibilities. We use it 
for a 15.000-name mailing list, 
yet it is perfect for lists as short 
as 100 names! You can store 1000 
records per data disk, use as 
many disks as you like . . . 

Each record includes: 

RECORD NUMBER 
RECORD CODE 
COMPANY NAME 
NAME 
ADDRESS 
CITY/STATE/ZIP 
PHONE NO. 
GREETING 
PRODUCT CODES 
DATE 

Utilities include SORT. MERGE. 
MOVE. BREAK. EXAMINE, and 
UPDATE. 

Prints lavefs 1. 2, or 3 across. 
Sequential file structure makes the 
most efficient use of disk space: all 
alphabetic items can be as long as 
necessary. 

Allows data entry on a 4K. Level II 
cassette system. 

2 Disk Drive, 32K minimum $99.95 



TpCTKMO SofHiKM fncliMfc 
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TAM 




SEARCH AND CAPTURI 

by James Garon 



Surely, deep down in the heart of every ex-CI is the 
desire to get his hands on a tank and run amok! This 
game is dedicated to all the men and women of the 
First Armored Division who ever hunted armadillos 
with tanks along the shores of Cowhouse Creek. The 
object is to be the first to run over each of the targets 
presented with your clumsy, hard to handle, tank. 



e nWK SEffiCH fM> CHPTURE 
BV JftCSGRRON 
920^ RONEVRK 
flNRHEIHf CA 92801 

When the program is first run. Line 20 is skipped. The 
test at Line 500 will then cause the instructions to be 
printed. The **RUN20*' at Line 1050 allows us to skip 
the instructions on subsequent games. 
Since the tanks are three print positions wide by two 
high, the string B will be used in the construction of 
each tank to drop the cursor one position (CHR$(26)) 
and back it up three (STRING$(3,24)). The tread 
patterns for each tank are stored in the strings D and E. 

18 CLEflR 999:R(M)Qn:Q0T0 38 

28 CLERR999:(S=1 

38 OEFINT 1-2 DEFSTR fl-H:DiH rt(:,7>iS.r E=i>RI(26)*STRINBI(L24 

) 

48 H=-BBB":D=H+B^:H=-HW:E=H«+H 
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Lines 100-170 

Sixteen tanks are drawn - eight for each player - and 
stored in the string array A(I,J). I indicates which 
player (Ofor balck; 1 for white) while J determines the 
direction in which the tank is pointing (0= north or up, 
1 = northeast, 2= east or right - - - 6= west or left, 
7= northwest). Having the tanks stored as strings 
allows them to be printed (which is a much faster 
process than ** SET" ting or *' POKE'' ing.) 

lee fi(ei,0>=" "+CHR$<168)+" "+B+CHR$<i?0)+CHR$<i82)+C«$<19i):fl<i 
.8)=" "+CHR$(168)+" "+B+CHR$(i70)+STRING$<2,19i) 

118 fi<& i)=CHR$<168)+CHR$(188>+CHR$<124)+B+CM?$(lS9)+CHR$<lSi)+C 

HP:$(129) :fl<l. 1)=CHR$(168)+CHR$(180)+CHR$(134>+B+CHR$(133)+Cl«$(l 

59)+CHR$<129) 

128 fi<0,2>=CHR$<168>+CHRI<188)+" "+B+CHR*(l?0)+a«$<190)+a«$(13 

1): fid. 2)=CHR$(168)+CHR$(188)+" HB+CHR$(170)+CHR$<191)+CHR$<O1 

) 

128 fl(8, 2)=(>«$<i84)+CHR$<l?3)+C:H?$(144)+B+CHR$<130)+CH»<135)+C 

HR$(164) :R<L 3)=CHR$<184)KM»(189)CHR$<144>-HB+CHR$(13e>+aR*<l 

:<5>+CHR$(i64) 

140 fi<6, 4)=CHR*<168)CI«$(i56)+C«$(18S>4fi4€l«$(130)+CHR$<171)+C 

m$(12i) :fl<L 4)=GHR*(168)+STRIW»C2. 188)+B+CHR$(130)+CHR$<171)+C 

HR$(i31) 

158 ft(8, 5)=CW?$<160>+M?$<158)4C1«$<l^)+B+aK$<152)+CHR$<139>+C 

l«$<129) :fl<L 5)=CHR$<168)+CHR$(190)+CHR$(i^>+B+CW!$(152)+CH?$(l 

:<9)+a«$<129) 

168 fl(&6)=" HCIfl»<168)+CI«$(i88)+B+CHR$<138)+CH»(l?l>+a«$<19 

8) :fl<l. £)=« "K.HR$(168)+CH?$<188)+B+a«$(130)+CHR*(171>+CH»(191 

) 

178 fl<8. 7)=C«$(137)+C:HR$<i84)+CHR$<144)+B+CWW(13e)+CI«$(172>+C 

HR$<135) :fl(L 7)<:W»<lI7)+CHR$(184)+a«$<144)+B+CHR$<138)+CHR$<l 

75)+CHRI<135) 

Lines 500-520 

If this is not the first game. Lines 510 and 520 draw the 
playing field. The lower right hand corner must be 
** POKED" rather than printed to aviod scrolling 
(POKE16382,142). (While the poke address of the 
lower right corner is 16383, odd numbers are not used 
in 32-character-per-line format). Notice that semi- 
colons(;) are often not required between items to be 
printed. 
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588 IF G;<=0 then 5000 

518 CLS:PRINTC-66,CH5:$<23)STRIN6$(2i;176)i :PRINTC-962,STRII«j$<30/i 
48); :Fi3R I=08 TO 898 STEP 64:PRlNT§LCHR$<i49)i :NEXT:PRINTC-LCH 

R$<141>; 

520 FOR 1=190 TO 958 STEP b4:PRINT8LCHR$(l?8); :NEXT;POKE 16382, 

142:PRINTe268,CHR$(i85)CHR$(149)i:PRINT8818,CI«$<l?8)CHR$(167); 

Lines 600-650 

P and Q are the positions where the black (P) and the 
white (Q) tanks will be printed. N and U determine 
which way they will point initially (N=3: SE, U=7: 
NW). L and S determine the color of the tank (S=l: 
white, L=0: black). Since L has not been mentioned in 
the program, Level II automatically sets it to zero. The 
time (T) will be divided by 10 before it is displayed, so 
T= 1E3 (1000) provides 100 ** seconds" of playing time. 
The string F will be used in Line 635 to display the time 
and score. G% is equal to one after the first game. This 
removes an extra pause between subsequent games. 

Since two people will be pressing keys at the same 
time, the INKEY$ function is not satisfactory. R (16438) 
points to a **work area" in Level II where the keys 
@ -A-B-C-D-E-F-G are detected. R-hl (16439) refers 
to the keys H-I-J-K-L-M-N-O and R+2 (16440) refers to 
the keys P-Q-R-S-T-U-V-W. If J is being pressed, then 
(PEEK(R-hl) will equal 4 (binary 00000100). If K is 
pressed, PEEK(R-fl)=8 (binary 00001000). If L is 
pressed, PEEK(RH-l)=4-f8 (binary 00001100). The 
AND operations in Lines 640, 645 "pull out' ' the the bit 
-bi(nary digi)t- corresponding to the key being tested. Y 
is used to tell the computer which player's keys to scan. 
X keeps track of which tank has just moved; and V are 
amounts to be added to the current positions of the 
black and white tanks respectively, (if 0=-64 then the 
black tank will be printed one position higher, etc.) 

688 P=132 : Q=888 : N=i : S=l : U=7 : V=S : R=1643:8 : T=1E3 : PRINT8P.. fl(L, N); : PR 

Mi?Q,ft(S..U);:F=" TIt1E:#t# BLflCK:### WHITE :###" ON G5; GOTO 61 

5 

605 PRINT§12, "F^RESS ENTER TO BEGIN"r 

610 IF INKEVIOCHR*(13) THEN 610 ELSE PRINT§0;CH?IG0)i 

615GOSUB920 

620 IF N=8 N=0 ELSE IF N<0 N=7 ELSE IF U=8 U=0 ELSE IF U<0 U=7 

625 IF X=l P=Z:V=O:O=0 
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638 PRIHTS>,D; :P=P+Ci:PRINT8P,fl(LN)i •.PRINTgQ.Ei :Q=S+V:PRINT§e,fi< 

635 T=T-1;PRIMT^AISING F; T/18.i SB; SW; :IFT>0 0=8;V=0 ELSE 1880 
649 V=i-'i:m V GOTO 645:R1=PEEK(R+1):IF Ri M) 8 THEN 788 ELSE 1 
F Id B® 4 TfCN U=U-1:G0T0 SW ELSE IF Ri AND 16 THEN U=U+1:G0T0 
628 ELSE 635 

645 !»=fEEK<R):R2=PEEK<R+2):IF R2 ftND 8 THEN 658 ELSE IF R8 ftf® 
2 THDI »=N-l:6CiT0 628 ELSE IF R8 fiND 16 THEN N=N+1:G0T0 628 ELS 

635 

658 -.X:^ :»< N GOTO 718, 728. 738, 748, 758, 768, 778 

Umss 700-780 

Forward moves are checked for legality and madie if 
possible (in Line 630 actually). Two comments are in 
(Hrder at this point. 1) a phrase such as, "if P-880" is 
interpreted in exactly the same way as the phrase, "if 
P< >880" with one exception: the first way is 
faster. 2( a phrase like, "if P< >880 AND 
' P< >884" is executed identically to the phrase, 
"IF P< >880IFP< > 884", with the same 
exception as above: the TRS-80 can perform an "IF" 
faster than an AND. 

786 IF P-888 IF P-884 IF P-328 IF P-232 IF P>i91 0=-64 

786 mo 625 

ne IF P-812 IF P-876 IF P-8M IF P-260 IF P-324 IF P-328 IF P>i 

F p4e-64*INT«P+8)/64) O=-60 

715 GOTO 625 

728 IF P-748 IF P-8i2 IF P-i% IF P-260 IF P+8-64*INT«P+8)/64) 

0=4 

725 GOTO 625 

7^ IF P-S84 IF P-^ IFP'748 IF P-i22 IF P-136 IF P-i% IF P<83 

2 IF P+8-64*INT«P+8)/64) 0=68 

735 GOTO 625 

748 IF P-136 IF P-14e IF P-688 IF P-692 IF P<832 0=64 

745 GOTO 625 

758 IF P-768 IF P-652 IF P-696 IF P-i40 IF P-i44 IF P<832 IF P-4 

-64*INT«P-4)/'64> 0=68 

755 GOTO 625 

760 IF P-824 IF P-768 IF P-208 IF P-272 IF P-4-64*INT«P-4)/'64) 

0=-4 

765 GOTO 625 
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??0 IF P-884 IF P-888 IF P-824 IF P-2?2 IF P-B2 IF P-36- IF P>i 

91 IF P-4-64*INT«P-4)/64> 0=-68 

775 GOTO 625 

780 Z=P : P=Q : X-i : ON U+i GOTO 708, 716; 728, 73:6, 748. 756, 768, 778 

Lines 900-940 

These lines are actually two subroutines. The one at 
Line 920 is called first (in Line 615). Wis a number 
from 1 to 9 which will appear on the playing field at 
position M. If M happens to fall on a barrier, then M is 
moved to the middle of the arena. CHR$(49) thru 
CHR$(57) correspond to the digits from 1 thru 9. If VV 
were printed directly, it would have unwanted blanks 
on each side of it. If the routine is entered at Line 900 
(see Line 630), then a check is first made to determine if 
a previously placed number is still on the field. If it is, 
then no action is taken, but if it is gone, Line 910 adds 
its value to the correct player's score (SB = black; 
SW= white). 

9M IF PEEK(i5268+H>=48+VV RETURN 
910 IF X=8 SB=SB+W ELSE SH=SW+VV 

928 VV=RND<9>:l1=2*Rfa>(29>+66+64*RND<12) 

930 IF «=266 m H=268 OR M=818 OR M=^278 OR M=820 OR M=822 11=544 

940 PRIMT«1>CHR$(48+W)i :RETWW 

Ones 1000-1050 

The feature of interest here is the use of SGN with the 
ON GOTO to determine which player has won, or if a tie 
has occurred. 

1800 PRINT866.CHR$G0)"G«€ OVER:"; :PRINTC-ii8, "HIT ENTER"; 
1018 ON SGN(SH-SB)H GOTO 1020, 1028 :G="BLflCK MINS:":GOTO 1848 

1020 6="TIE SCORE: ":GOTO 1040 

1030 6="HHITE HINS: 

1040PRINT888.6; 

1050 IF INKEV$OC:HR$(0)THEN 1850 ELSE RUN 28 

Lines 5000-5200 

When many lines of text are to be displayed with 32 
characters per line, it is easier to type the line in 32 
character-size in the first place. Hit a SHIFT and a > 
before entering the line. When you reach the end of a 
line on the screen, hit a V WITHOUT SHIFT and 
begin the next line of text. This allows you to see the 
text as it will appear when the program is run. To leave 
a blank line between lines of text (see Line 5030) use 
. the V more than once. 
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5008 CLS:PRINT§4,CHR$<23)''TflNK (SEflRCH RND CflPTURE) 

THE OBJECT OF THE Gfll€ IS TO 

COLLECT f5 MfWV POINTS FS POS- 

SIH.E BEFORE TIPIE RUNS OUT. fl 

NUMBER HILL flPPEflR ON THE PLftV- 

ING FIELD AT fl RflfDOl LOCflTICR 

THE PWfER mi DRMS HIS TfM 

5018 PRINT"OVER THE MJMBER WILL HfiVE HIS 

SCORE IfCREfiSED BV IVE VflLUE OF 
THAT NUMBER. PLAYERS ARE CflLLED 
'BLACK' AND 'WHITE' AND THEIR 

Tflr*3 LOOK LIKE THIS: 

5020 PRINT§7S8,fl<8,2)" "GHR$<2?)A<L6):PRINTTAB<5>"BLACK 

WHITE" :GOSlfi 6000 :CLS:PRINTCH?$(22); 
5838 P=268:Q=292:N=2;U=6,PRINT"PLAYERS CONTROL THE TANKS BV 
HEfWS OF SIX KEVS AS SWMI: 

ft.«a( WHITE" : PRINTS*, A<0, N) : PRIWT«b A<1, U) " 

AS D J KL 

THESE KEVS ARE IN TWO GROUPS ON 
EACH SIDE OF THE KEVBOARD. THE 

5840 PRINT'OJTER KEVS IN EWH (MHP ARE FiKTUiWIfffi. (PRESS ENTER 
FCR DEMO). "-.GOSUB 6818 

^58 PRINTeei2, CtR$<21) "PRESSING 'A' TLRNS a.flCK COJHTERCLOCKWIS 
E. " :PRINT89?4, "(Pi^SS ENT0?)"i 
5860 N=N-1:IF N<0 N=? 

5070 PRINT8394," "i :PRINT0P,fl<8,N)i :60SUB ?0M:PRINT§394/''A"r:QO 
SUB 7088: IF INKE'i^=CHR$(13) ELSE 5068 

5880 PRINT0532, "J"i :PRINT8550/"WHITE"i 
5898 U=U-i:IF U<8 U=7 

5188 PRINTe4i8, " »; :PRINT8Q>fl(LU)i :GCaiB 7880:PRINT§41& "J"; :(» 
SUB 70ffl:IF II*:EV$=0«?$<13)EL^ 5090 

5118 PR1NT§512, "SIMILAK.V, THE 'D' ffl® 'L' KE'r'S ROTATE TJ€ TfWKS 
CLOCKWISE. . . "i 
5120 U=U+1:N=N+1 
5130 IF U=8 U=8 
5140 IF N=8 N=8 



46 



5158 PRINTM02," "; :PRINT§426, " "i :PRINT§P,fi<0,N); :GOSUB 7980:PR 
INT§482, "D"i :PRINTC*426, "L"; :PRINTC'Cbfi<LU>i ;GOSUB 7800: !F INKE'V$ 
=CHR$(15>ELSE 5128 

5160 N=2 : U=5 : PRINTeP, fl(8, Ih : PRINT§Q, fi(L U)i : PRINT§512, CHR$< Ji) " 
THE 'S' m) 'K' KEVS (THE MIDDLEKEVS IN EftCH GROUP) WILL MOVE 

THE TANKS FORMflRD. NOTICE THAT 

EACH TAM< LEfWES A TRAIL KHIND 

IT AS IT TRAVELS. (PRESS ENTER). ":QOSIJB 6818 :PRINT8:<84..CHR$(3i) 

5170 FOR P=P TO P+544 STEP 68:PRINT8P,A(8.N)i :i30SUB ?000:PRINTi9 

22. " "; :G0SUB 7800:PRINT@922. »S"; ;PRINTep,D; :NEXT:PRINT6lP, A(0,N) 

i :F0R 6=QTOi3+480STEP60:PRINT«!,A(LU)i :GOSUB 7800:PRINT(?922, » ": 

:aKUB7800:PRINTe922,"K"i ;PRINTiQ,Ei :NEXT:PRINT&Q,A(l.U)i :GOSiffi 

6668 

5186 as : PRINT a«$(22)''SCB€ FI(#1 r«5TES: 

vol GAIWT TRAVEL THRU fW SOLIDWHITE BARRIER (SUCH AS THE ONES 

mM TANKS m. FfCING tt£N IVE 

GAME STARTS - OR THE HALLS OF 

THE PLAYING FIELD. ) 

AS TJE GA« PraWRESSES, TJ€ 
NUMBERS BECOME HARDER TO FIND 
5190 PRINT"AMONG THE LETTERS. THERE IS 
<ALHAVS> A NU1BER OUT TtCRE. 

IF A NUMBER IS HARD TO SEE> 
IT «AV BE A 2 OR AN 8 HIDING 

IK THE TRACKS LEFT BY THE 

BLACK TANK. GOOD LUCK!!" :QOSUe 6068 

5260 GOTO 510 

Lines 6000-6010 

Waits until ENTER is pressed before continuing. 

6000 PRINT8974," (PRESS ENTER)"; 

6018 IF INKEV$=CHR$(12)RETURN ELSE 6818 

Une 7000 



7000 FOR 1=1 TO 150: NEXT: RETURN 
Waiting loop. 
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Lance Micklus' 
ST80-the Smart 
Terminal Program- 
just got SMARTER! ! 



ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 



USING ST80D, your TRS-80 can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-dO can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tables to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request. 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 

ST80D is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

If you're looking for a professional quality product, 
not an amateur program, then order ST80D today f 



For UK 
disk systems 
$79.95 




TcC TRI-t« f«lluNu« ChcIma^c 
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x-iuinii II 



by Chris Freund 

For the thousands 
who have enjoyed 
X-Wing Fighter, 
X-Wing II presents 
a totally new element 
in the game! 





You are Pilot of 

an X-Wing 

i fighter... 



Your 

Mission, 

Destroy the 

Death 

Star! 



, 3 Where X-Wing I left Death Star 

looming on the screen, X-Wing II lets you guide your 
tighter into the trench, tind the evhaust port, dim and 
tire — all the while avoiding enemy lighters Excellent 
graphics, 12 levels ot play, and extensive INKEYS 
commands make this one of our most exciting 
real-time games 

LevellM6K -$9.95 

TkK TRI-aO fefhuoM iiiclioA9c 



— r Special Purpose Software J — 



X lyi^i 



I-Z80 convERMon 



Here's a program for machine language freaks — It 
permits you to enter 8080 codings and returns the Z-80 
equivalent. In addition, it also stores the equivalents In the 
order they were entered for review at a later time. 

Level II, 16K Price, $15.00 

HENUMQEH 

This program can renumber a 12K program In Just 32 

seconds. Offers complete user control with respect to 

which lines a^e renumbered, and how, including ail 

GOSUB's and GOTO's. Needs no external tables. Runs In 

1300 bytes of high memory, regardless of program size. 

Specify 4, 16, 32 or 48K version when ordering. 

Digital CasseHe for Level II - $15.00 

Disk, all 4 versions on one ~ $25.00 

Source Listing — $20.00 

miCFD TEST EDITOR 

Versatility in text composition and editing through use of a 
non-destructible cursor, graphics capability and Interface 
option with cassette tape or TRS-80 printers are feature 
elements of this program. Commands include: Delete, 
insert, ASCII Code, Repeat, Print, Save, Load, Clear, 
and End. 

Level II, 4K or 16K Price, $9.95 



ifi 



TRS-SO lofliiKMC C1KI1QI19C 

iririwCHHDrlw MNtw.. Nmt HwnpMr* OMM 
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GENERAL LEDGERI 



bvNlichaelKelleher 



_-4---^- --*-•--' 



OesignedforappUcatU^]';^^ 

ine the implementation ot a 
"entP/" bookkeeping system; ^ .^. 
""Capabilities include: \ ■ \ ■ ' 

-/ Ability to establish, define, delete and solt 
^ Cp to 400 general ledger accounts^ 

.^ 9nn entries and/or ad|ustments 
^ Post up to 200 entr es 
JY- to transaction data tiies per:..: 



V 



-totransdti'"' -.ncUte" 

1 to 4 disk drives. i i L^-^ 

^ Full complement of line printer re1»rtf ^ 

W "Error-trapping" routines. -^ 

Avoids necessity to "re-boot - -+ 

■ ' . ^ ..,,1 1 ^Haer 1 System provides 

^_3lthough the General Udgen^ V .^ 

— a comprehensive flexible a j_^^ ^^,^^^ 

-has not been ^^^'fjl^ga rigorous dual-entry 

business operation utjlunnga^ s^ ^ double-entry 

.. accounting sy^t^ ,*^ciliMion reports are 

- ^pSdbv'tHectneralLedgerl.OSystem^^^^^ 

Disk32K 1 1 ! . I 1 I 



TRS-80 SoftuiQie CK€hoA9e 

17 BRIAR CLIFF DRIVE MILFORO. NEW HAMPSHIRE 030SS 
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PELU'NG 

Does your child hate spelling? 

Here's a program to transform your TRS-80 into a 

speaking, spelling FUN machine ... 



lames Garon 



The first step In using 
Spelling Bee Is to teach the 
TRS-80 how to spell the words. If 
possible, use the word list that 
your child brings home from 
school. The easiest way to enter 
the list (up to twenty words) Is to 
type 

RUN 1 ENTER 



The computer will respond with 
instructions for entering the^ 
words/ and a large cursor will 
appear at the left side of the 
screen. From this point on, every 
word you type will be displayed 
In GIANT letters (about 4" tall). 
Each word may be up to ten 
characters in length and may 
contain apostrophes CAN'T, 
hyphens GOOD-BY or blanks 
GRAND PRIX. Two editing keys 
are provided in case of error: 
the -♦ works in the usual way, 
erasing one character each time 
it's pressed. The CLEAR key will 
erase the entire word, allowing 

52 



you to begin that word again. 
When the word Is spelled cor- 
rectly, press ENTER and the 
computer will store the word In a 
special DATA statement at line 
1000. (Programming note: If you 
type In the program yourself, be 
sure to type as many slashes (/) 
as line 1000 will hold before 
running the program. This re- 
serves space for the DATA. 
NEVER EDIT line 1000. Should 
you wish to type in your own 
DATA statement, use any vacant 
line number SMALLER than 
999). If your list contains fewer 
than twenty words, the final 
entry must be XXX. 

The second step is to give 
your computer a voice. When the 
final word has been entered, the 
computer will direct you through 
the process of creating an audio 
tape. The instructions which 
appear on the screen tell you 
which wires to pull, which 
buttons to press, and exactly how 



far to rewind a blank tape. Don't 
forget to remove the small plastic 
plug from the MIC jack. This will 
allow the built-in condenser 
microphone to pick up your voice. 
(Put it back after recording so 
that future CSAVES will not be 
spoiled by room noise). The first 
time thru, you may wish to step 
through the procedure without 
actually making a recording. This 
way you can get used to pacing 
your voice so that you can 
comfortably say your "lines" 
during the time that the "on-the- 
air" light is traveling across the 
screen. When you are through 
rehearsing, hit BREAK and type 

RUN 2 

This command tells the computer 
to help you with the audio tape 
from the beginning. Should you 
make an error while recording, 
simply BREAK and 



RUN 2 



agam. 



When the final word has 
been recorded, the computer will 
instruct you to rewind the tape. 
You DO NOT need to unplug the 
REMOTE wire. The computer 
has disconnected this wire in 
software. When the tape is 
rewound, pressing ENTER will 
effectively plug the REMOTE 
wire back in. 

Now it's time to test the 
program. This time, just type 

RUN 

and answer the question, "Do 
you want instructions?" with the 
word "no". Again the computer 
will tell you which wires to pull, 
buttons to press and how far to 
rewind your audio tape. (Notice 



that the tape is wound to one spot 
for recording and to a different 
spot for playback). Pressing 
ENTER at this point begins the 
main program. The recorder 
should turn on automatically, 
speak the first word and shut 
itself off. Wait for the GIANT 
cursor, then type in your re- 
sponse. If you spell the word 
correctly, the computer will say 
so (on the screen) and the next 
word will be spoken by the 
recorder. If you spell the word 
incorrectly, press CLEAR and try 
again. If the second attempt is 
wrong, the correct spelling will 
^be displayed (in GIANT letters). 
Press ENTER to hear the next 
word. 

After your response to the 
final word, your score will be 
given, and the audio tape may be 
rewound (again without pulling 
the remote wire). Now CSAVE 
the program on a different tape 
from the audio and it will be 
ready to use until the next word 
list arrives home from school . 



CU/TOnCR 
/ERYKC 



fUCTRI-aO leftuKifc ChcIkmioc 

■^'■t; BRIAR CUFF DRIVE MILFORO. NEW HAMPSHIRE 03055 
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Cl£flR2E3:G0T068K 

SGFT5IDE PRESNTS 

SPBlIHGiEE 

BV JnCSGfMM 

1 CL£HaO:TZ=l:OOfroi8 

2 CL£flR20:TX»2 

IB PRINT*HRIT R SEC . . VDEF5Tm-H:DEFIHTI-Z:DIIIK25):E'<WI04): 

D<ilS(191):Q0T0514e 

SBGLS:FRlNT:PRINTTflB(6)H(18)H(15)IK4)H(ll)H(ll)H(8)H(13)H(6):PR 

nrT:PRII(TTiB(21)H(l)H(4)H(4):IM:S^ 

96 PRINTf!»i1SU» TIC AUDIO TiVE SO HE PUCE MBE DE LfiBE 

R JOINS 

DC TfPE flPPEilS IN TIC lin-HRM) HIWU flS SHDW: 

TRB(18)STRneK2S. 176) : PRINTTtt(15)SnaNBI(S. D)'»«»-Oi D; D'— 

-■D*-*D* -STRneKS. D) :PRINrniK18)SRnDI(25. 131) 

96 V'4£256:K»128:PRINTfEHM 'ERR' fl» 'MK' HUES 
LEHVE ODER HUE IR 

PRESS 'PUT. 



Recommended for 
small businesses 




Small 
Business 

Bookkeeplh 

rs)n©Kf : 

\ by Miller Microcomputer Services 

The Dome BookkeepingX '^^ ^««r W. RobitaiUe, Sr. 

System, fuUy coin|MUlble\ 

with your TR&80 disk \^ 

syateml Opdoad repertmg^/ 

to line printer; supports cash system of ^ Available for SEK 

aeoountingt applying expenses to any Disk ^yitoaa— $24.96 
oftbeforty4woaceounts. J^C TRI-ftO SoHuKife Cxchon^c 

Im^B U Brier Clltl Drw« Mlllord. N«n Hamp^lra Q30&5 
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PRESS EHTER TO BEGIN. . . 

97 PRINT§602,Di :F0RI=1T038:IFINKEV$=""NEXT:PRINT8682,":"; iFORM 

T038 : IFINKEV$=" "NEXT : GOTO? 

98 PRINTK56,CHR$<31) 

99 KflDO:IFLEn$(D,2)="m"THEN380aSEGOSlBiee0e:Y=e:N=N+i:GOa» 

286 IFfl=LEn$(D, LEN<D)>PRINT8784, H(2)H<14)H(17)H(17>H(4)H(2)H(i9 
>:S=S+i:G0TO99ELSEV=Y+l:IFV<2PRINT"PRESS CLEAR AND TRY fiGfiIN":GO 
SUB4e88;G0T0268 

218 E="" :FORI=iTOLEN(D) :l1=flSC(HII»(D, L D) : lFH>64THENE=E+H<l1-65) 

ELSEIFN=32THQC=E+CELSEIFM=45TJ£NE=E+l€LSEIFH=29THENE=E+flPELSIF 

H=46THENE=E+F 

215 NEXT 

228 PRINTK76, "THE CORRECT SPELLING IS" :PRINT 

238 PRINTE:PRINT"PRESS ENTER. .. 

248 B=INKEV$:IFB=""THEH24eaSEIFflSC<B)-13THEN248ELSE98 
388 PRINTee32, "YOUR SCORE IS"S"OUT OF"N" 
REHIW) TAPE - THEN PRESS ENTER" :0UT255, 4 

318 IFINKEY$=""THEN3ieELSEEND 
999 6="" 

1888 DflTft ////////////////////////////////////////////////////// 

f/fi//iff/Nfiiffif/fiffl/i/f//fff/ff//ffiffNftfN//i/fif/Ni// 
//////////////////////////////////////////////// 
1588 V=VflRPTR<6) :L=PEEK(V+l)+256*PEEK(V+2) 
1528 F0RI=L+8T0L+238:P0KEL6:NEXT 




55 



1530 CLS:PRINT"SPELL EACH HORD CORRECTLV. PRESS ENTER AFTER EACH 
UORD. 

THERE IS Wm FOR UP TO 28 WKDS. 

IF VOU ENTER FEWER THAN 28 WORDS, THE LAST HORD MUST BE 'XXX' 
1548 K=L+8 

1558 FORH=lTCe0 

1568 PRINT§256, 'Vm t"H"?" :GOSlB5e80:IFA="''THEN156e 
1578 FORI=iTOLEN(R):POKEK,ASC(HID*(A,Ll»:K=K+l:NEXT 

1588 IFAO"m"THENPOKEK,44:K=K+l:NEXT:FORK=KTOK+2:POKE1088:NEXT 

2808 REST0RE:aS:PRINT"REt10VE PLASTIC PLUG FROH 'MIC 
REMOVE 'AUX' HIRE AM) 'EAR' HIRE. 

LEAVE OTHER HIRE Ik 

REHIND A BLANK TAPE SO THE PLACE W£RE THE LEADER JOINS THE 
TAPE APPEARS IN THE SMALL RIGHT-HAND HINDOH (AS SHOWl): 
2801 PRINTTAB(18)STRINGI(25, 176) :PRINnAB<15)STRING$(5, D)"===" 
D"="D"==="D; Di D"~— "STRING*(5, D) : PRINnAB(18)STRIM6$<25, 131) 

2805 PRINT-PRESS RECORD AND PLAV. 

(IF VOU MAKE AN ERROR ON THE AUDIO TAPE, HIT BREAK TICN 'RUN 2') 

PRESS ENTER TO BEGIN. . . 

200? PRINT§418, ":"; :F0RI=1T038:IFINKEV$="NEXT:PRINTM1&D; :FORI 

=1T038: IFINKEV$=""tCXT:GOTO2807 

2009 CLS:PRINT 

2010 READA:IFLEFT$(A,2)="m"THEN30e0ELSEPRINT-PRESS ENTER; UHEN 
THE TG 'JF THE SCREEN LIGHTS, 

SAV, "E'SPELL THE HORD: "AiE 

2820 B=IM<EV$: IFB=""THEN2020ELSEIFASC(B)-13THEN2020 

2830 K=131 : V=15360 : GOSIB10000 : GdTO2010 

3000 PRINT" 

REMIND VOUR TAPE; PRESS ENTER WCN TAPE IS REWOUND. ":0UT255, 4 

3010 IFINKEV$=""3010 

3020 OUT255,0:PRINT"VOU MRV NOW 'RUN' THE PROGRfllt ":END 

40M IFIM(EY$OCHR$(31)4000 

5000 P=448:A=" 

5810 PRINTH»-64,CHR$(30)i 

5020 PRINT§P, CHR$(31)i : iaEN(A)a0PRINT" "STRING$(5, 176) 

5838 B=I»<EY$ : IFB=" "THEN5838ELSEZ=ASC(B) : IFZ=31THEH5008 

5040 L=LEN(A) : IF2=8ANDL>0A=LEFT$(A, L-1) :P=P-6:GOTO5010 

5050 IFZ=32IFL<10PRINTeP, C : GOT(B090 

5068 IFZ=45IFL<10PRINTeP-64,H:GOTO5898 

5W2 IFZ=39IFLaePRINTiP, AP:G0T05ffie 
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'O^Afi'Ji 



BATTLES 



by Level IV 



^41- 






Assume 

the role 

ofa 

Galactic 

Mercenary 

In defense 

of the 

Empire!! 



^1 



Space Battles is one of the best 
space games we've seen in a long 
time. Features three levels of play, 
fast, machine language graphics, real- 
time input, and "smart" enemy ships that move 
and shoot! You'll find that playing the part of a 
mercenary isn't simple. It's not enough to 
eliminate the aliens; you must turn a profit, 
missiles are expensive, the rewards are small, 
and watch out for the radiation belts! I ! Available 
on Level II, 16K Tape ^^^^^^^^^^^^^H 
or32KDisk. 

Tape - $14.95 
Disk - $19.95 



TfC^'*^^ lofliuore EiKhQiigc 

W *^ I'M' CMI Or V. Millwd N«« Hampth r. 



5865 IFZM6IFL<iBraiNnP.F:Q(nt)6e9e 

5078 IFZ=13PRIHraP.C:RETU« 

5888 Z=Z-€5:IFZ<eORZ>25(KL.>9TIBeKKLSEPRIimP,H(Z) 

5898 R=A4B:P=Pt6:GOT0582e 

5148 C=- ■ : H=' ■+STRING»(5, 176)4Cil»(26)4S1RINGI(5i 24H- 

":flP=CH»(27^+" "+C«»(175)*CHR»(26)*STRINB$<5,24)+C:F=' '♦ 

CH»<i4e)+' • 

5288 B=Clf»(25>+CHR$(27) : C=Ctfi$(26)45TRING$(5. 24) :H(8)=B*iH5TRIN 

m2, 179)4{>C4Ctl»(143)i* ■4CHR»(143) :H(l)mFTS(H(8>. 6)4CHtt( 

157)*C4CH»(143>iSTRING»(3i 148)tCHRS(135) :H(2)=8t|>t5TRINI»(4< 131 

)4C+C>fi$(143)+STRING$(4. 148) 

5286 H(3)=ei(HSTRINGS(2.131>tCHR$(139)4CHR»(188)4C4Clltt<143)45TR 

IMi$(2.i4e)4CII»(142)4CHR$(129) :H(4>»M«5RINQI(3>179)4CHRI<13L 

HC4Cil»(143}«5TRINBI(4, 146) :H<5)«fD«5TRINBia. 179)4C»f(131)4C 

40ftt<143)4- ■ 

S2U H(6)4*D4CIRI(131)45TRIN»(3.179)4C4CHR»(143)45IRIIIIK3.i« 

)4Clltl(143):H(7)>e(Dt5TRING»(3.176)40tC4ai»a43)«- 'iCWtaO 

) : H(8)^H5TRINBI(2. 131)«l>t5TRING»(2. 131)4C«1RIIGI(2. 14l)4«t(i 

43)45TRIiei(2.14e) 

S215 H(9)-B«5TRIN»ai31)4l)«C>ltl(llL)4C4Clliia<e)4SIRIIBiai« 

)4Clltl(143)«' ■:H(ie)4«Dtaitia76>«RKl«)«ltK13i)«' "CfCH 

must*' '^CMM3i.)¥MKMIIh^ MKlD-etfrt' "KiOltia'O) 

45miNBI<4,i4e) 

TSn H(12>4«DiaRI(131)4D«ai»(i3i)4D4C4Cmia43)«* 'HSKMA 

3>:H(13>4iDH»ta4l)4ClliK17S)«' '«iC4C«ia<GH* 'KMitaSl 

>4€llil(l<ll) :H(14)4fCM»(lSe)45naNBiai21)4CWKlfl9)4C4Cmi(i3 

9>«51RIIBK1. 148)KmK135) 

9825 H(lS)4«»t51inNBiai79)40fC«CMtKMD«* MKlCMHHtK 

S9l>«SRllBiai21)K»tl(lBB>«HMmi39>«C«ta«MII^^ 

RI(141)4C«K10 :H(17)4iCHil(]91)45linmiai79)40(CiClliia«r> 

*• ■4CiliK13i>4CIIIKi4l> 

8Z3B H(tB>4t0«5TltIIBI(4>179>Ci5ntIII)l(4.1<«)4C«ia4l>:H(19>€ 

4SRUBK2.131)40i5IRINBK2il3l)4C»* ■iClllia41H* MKan4«» 

«■ "iDictCMtMonfsnnniaiMMmKiS): 

9235 IK2U4H»ia4l>4ClliKi76H' SCIM(17S)4Gmia43>«C«" MC 
llil(13i)4CWI(l«)4CII»(13i)«- MK2Z)4iO»* NCWKiTS)** "lOiC 

9M IKZI)4«CI«l(m>4CHtKMI)4C«ia70Knia«>K»l(m 
4G»ia48)KHRK13L)«* ■4aiil(13i)4CWItt4l):IKM)4EFTI0K2!).l 
3>»' NCWtaO*' VIK25H»5lRIIB»<2.Cl)<Cltta»>«QtWMI 
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Ainidlr@id INIimri 



The newest version of TRS-80's first animated 
graphics game - Androidi NIM - now with more 
animation and sound! 

Level II, I6K- $14.95 



Snahe 




Here is a computerized 
reptilian version of 21 
complete with arrogant 
snakes and appropriate 
sound. 

Level II, 16K $14.95 




Two in one: Game of 
Life, at an astounding 
100 generations a min- 
ute, plus Battle of Life 
with animated creatures 
and sound. 

Level II, 16K $14.95 



Cubes gives you the solution to Instant 
Insanity®*, a numbered block puzzle. Drive 
your computer nuts trying to figure how to 
arrange the 4 blocks on your screens. Each side 
shows four different numbet's. Level It, I6K 

:!< instant insanity® is a Parker $9.95 

Brotiiers registered trademari( 

T|ETRI-80 lofluiare CxchciAoe 

' 17 BRIAR CLIFF DRIVE MILFORD, NEW HAMPSHIRE 030^5 
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IKVBBiTOKY 2.3 

The programming of the FUTURE is here 

NOW 

Proper inventory management is 
the backbone of a profitable busi- 
ness, yet it's very difficult to 
Iceep current on price increases, 
shrinkage, low-on-stock itmes 
and profitable items versus 
losers, without an efficient and 
prompt method of surveying your 
Inventory levels at any given 
time. The Inventory 2.3 System 
provides the small-to-medium 
volume business with an efficient 
method of establishing and main- 
taining Inventory records. Fea- 
tures of Inventory 2.3 Include: 

■ TlM ability to establish over 2200 Inventory item records per clean diskette. 
Each inventory Item record contains data on the vendor, quantity on hand, 
ciit per unit, retail price per unit, reorder points, quantities purchased and 
stM, and sales history. 

■ File SMfch by Inventory item description or batch/sequence number 
aisignment. 

■ System operation with 1 to 4 user seioctaMe disl( drivot. 

■ iRftmiative reports analyzing both inventory costs and supplies. 

■ Siphisticated recovery routines with each program to catch data entry errore 
and to prevent computer "lock-out" through lack of proper line printer 
interface, etc. 

■ A looped program format to allow aecess to any sub-programs whenever a 
different Inventory file function is desirtd. 

A comprehensive manual guides you step by step during your first-time run of the 
system; your conversion of data from a manual system to the computer system; and 
regular run procoduros throughout the year (update file, add or delete items, 
monitor activity monthly or wooMy. check for low stock, run inventory control 
reports). 

Requires a minimum system configuration of 32K. Level 11 TRS-80 microcomputor 
with at least two mini-disks and lino printer. Two disks are rocommondod. $7t.05 

T#f TRS-80 SofluKWC CiiclKMi9€ 

a 17 Briar am Orivt MIHortf.NMrHa)ivMr«030SS 
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)+CHR$(131)+C+CHR$(14e)+CHR$(i42)+STRING$(3, 148) :C=» 

52M ONT6OTO9»,2800:(iOT£60 

6808 CLS.iM=tJT" 

DO VOU NEED INSTRUCTIONS"; fl$:iaEFT$(fl$; DO" V"18 

6810 aS:PRINT" 

sm.im BEE \m ckbted to give spellims prktice at mff 

LEVELS of difficulty. IT IS DESIGNED TO BE USED HITH THE 
CflSSEHE RECOratR. THE DESIRED WMS W. RECORDED W TAPE 
AND THE COMPUTER PLfiVS THEN ONE AT A TIHE WHILE THE USER 
6820 PRINT"SPELLS THE WORD. IF THE SPELLING IS CORRECT, THE TAP 
E 

WILL flUTOfflTICALLV H>VfflCE TO THE ICXT WCKD. IF THE SELL- 
ING IS m CffiRECL TIC USR IS GIVEN ANOTHER OTtKTlWITV 
TO SPELL THE WORD. IF THE SPELLING IS STILL INCORRECT, THE 
6838 PRINT"CO«PUTER WILL SPELL WE mS> COFSECTLV, WAIT IMIL TH 
E 

USER PRESSES 'ENTER' AND THEN PROCEED HITH THE NEXT WORD. 
THE SCORE IS KEPT, AND DISPLAYED AT THE END. 
TO CORRECT ERRORS, USE ] OR 'CLEAR'" :G0SUB6999 
6840 CLS:PRINT"IF VOU HAVE PREVIOUSLY PREPARED AN AUDIO TAPE, 
TYPE 'RUN' AND ANSWER THE QUESTION, . 
"DO YOU WANT INSTRUCTIONS ?" WITH !¥£ WORD "m". 

6058 PRINT"TO PREPARE YOIK OWN SET ff IWRDS, TYPE 'RIW 1' AW> TH 

ECOt- 

PUTER HILL ASSIST YOU. WORDS MAY BE UP TO 18 CHARACTERS IN 

LENGTH THEY HAY INCLUDE SPACES (GRAND PRIX), HYPHENS (GOOD-BY), 

APOSTROPHES (DON'T) AND PERIODS (MRS. ) 

6860 PRINT'A FIWl NOTE: THE COMPUTER WILL WRITE ITS Om DATA ST 
ATE- 

l€NT AT LINE 1888. DO NOT EDIT THIS LINE, "i 

6878 PRINT" IF YOJ WISH TO USE 

YOUR OWN DATA STATEMENTS, HE SUGGEST LINES 488 THRU 988. 

■:E«) 

6999 PRINT§960, "(PRESS 'ENTER' TO CONTINUE)"; 

7000 A$=IHKEY$: IFA$=""THEN7000ELSERETURN 

18888 OUT255,4:F0RI=lT06ee:ICXT:F0RI=VTOI+62:P0KEI,K:NEXT:F0RI=V 
T01+63:FORJ=1T035:NEXT:POKEI,32:NEXT:OUT255,8:FORI=1T0488:NEXT:R 
ETURN 
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Don't Miss Out! 



If you've moved recently, or are planning 
on moving in the near future, please verify 
by filling out the form below. This way, 
you'll be sure not to miss any issues of 
Softside. [include your present label] 



PfTsI 



Name: 



Address: 



City:. 
State: 



.Zip Code: 



When Effective: 



GBTRIDOPYOUR G/&#:?!1) 
D#/?l!:) TYPEWRETER.. 

Effortless t^iiig is lierel 

Tl-B Electric Pencil by MlcirBel Shra^er 
Is a true woru-prooessia jg prcgmm for xite 
TRS-80. Enter your manuscript, and 
lei your' oonpuier do U'je work BdlUrg? 
JuBL pot?iUou tl fci cui^Dr witli ilrie anow heys 
...oije-i<Ey iX)iTiirjaix]s leiyouctjaiige, delete, 
oru-Bea. Fully aiJiBlal^le rriaigiijs, MUxigrn 
juBilficaUon, vaxlatjle spacii-g, page l^adlrgs, . 

^ii II juuh ujoib! Save aid it?cailyour*te^ wiUi 

tape ordiskfiieB. Typirg eveiylt^iing from leuaxB to lepoite ia 
fast arxi traedibly easy usiig 

Th3 Electric Pencil. ^^l ^^» ^*5K taj^ ^ liaioo 

Dlskveralon ~ $]50.00 




\h^ 



TRf-60 SoflUKIfC CKChQAQC 

1 7 Briar Cliff Drive IVAilforci, New Hampshire 03055 
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2New 
Adventures 

by Scott Adan 



%M 



m oqw 



M 



You're in Dracula's castle and your mission is to des- 
troy him and thereby rid the world of his evil! 

Remove a voodoo curse from Count Christo 
and set him free forever! 



Now in machine language for instant responses and 
more excitement! Plus new versions of these old 
favorites: 

Land Adventure ' 

Pirate's Cove 

Mission Impossible 



Two adventures on disk $24.95 

Adventures on tape for 16K, Level 11 $14.95 each 






h 



Tf C TR5-80 lofluKire Cii€Ikia9c 
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Col flSlOT) "k 



by David Bohike 



Gentlemen, start your engines! They're off! at the hundred-mile 
marl<er it's Andretti in the lead, with Unser five seconds behind. 
Now here comes Clark, in third position, past Unser on the 
backstretch. He's gaining on Andretti, challenging on the third turn 
. . he hit the wall! The car is spinning back across the speedway into 
the infield. Clark is out ... he's all right! But the race is over for 
Jimmy Clark! 



e COLLISION - fl GfiHE OF SKILL BV OflVIO BOHLKE 



5 CLEflR288:DEFINTfl,R,C,ltN 

29 aSiPRINTW?,"* COLLI S ION ♦".PRINT 

25 PRINT" THIS IS R DRIVING REACTION GfWE HHICH TESTS VOUR S 

KILLS IN" 

36 PRINT"flVOIDING ONCOHING AUTOS DUE TO THE CURVATURE OF THE R 

OflD, VOU" 

35 PRINT"HUST ALSO STEER VOUR CAR TO AVOID CRASHING INTO THE QUA 

RDRAILS. " 

48 PRINT'TO STEER RIGHT PRESS THE -N- KEV. fVD TO STEER LER PRE 

SSTHE" 

45 PRINT"-B- KEV. VOUR. TOTAL SCORE FOR FIVE ATTEHPTS IS A CO«I 

NATION ' 

58 PRINT"OF T« TIME VOU SURVIVE COLLISSION; AND THE NUWER OF A 

UTOS" 

55 PRINT" VOU SUCCESSFULLY PASS. ": PRINT 

V PRINT-DAVID BOHLKL COGGON, lA FEB 11, 1979": PRINT 
68 INPUT"=ENTER= THE NUMBER OF PLAVERS (1-5) ";PL 
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65 PL=flBS<INT(PL)) : IPL>5RUH ELSE CLS 

78 F0RI=1T(FL 

75 PRINT"=ENTER= NfflC OF aftVER « "; I; :INPUTPU<I) 

80 IF LEN(PL*<I)»9PRINT"USE LESS THAN 18 LETTERS !»:60T0?5 

85 NEXTraS 

188 PRINT»=ENTER= SPEED :'' 

185 PRI?^T"a.i3W(S> NORUfKN) FftST(F) "; :INPUTfl$ 

lie IFfl$="S''THENCS=28:G0T0128 

112 IFftf="N"Ti£rCS=18;QOTO120 

114 IFfl$="F"TffirCS=l;6OTO120 

116 PRINT :G0T01M 

128 PRINT :PRINT"=ENTER= TRftFFIC :» 

125 PRINT"LIfflT(L) HEDIl»1(ri) HERW(H) "; :INPUTfl$ 

08 IFfl*="L"THErO<=O:(30T014e 

122 IFFl$="M''THENCN=9:G0T0148 

124 IFfl$="H»THENCN=5:60T0148 

136 PRINT :S3T012e 

148 PRINT :PRINT"=€HTER= RO© CURVATURE :" 

145 PRINT"LONG Cl«?VES(L) GENTLE CUWES(6) IWV CUR^/ESCH) '; 

147 INPirrfl$ 

158 IFfl$="L"T^ENCR=5e:(aT0168 

152 IFfi$="G»THENCR=38;G0T0168 

154 IFfl*="M"THEICR=ie:K)T0168 

156 PRINT;G0T0148 

166 CLS:fl$=CHR$<153)+CHR$<igS) 

165 RC*=Cl«*<155)+a«$<i67) 

178 R$=5TRIHG$<4, 153>+STRING$(28> 128)+STRING*(4, 16£.) 

288 FOR Gfl=l TO 5 

228 FOR Z=l TO PL 

238 IF2=lPRINTe96e,PL$(Z); " Pf^S =ENTER= FOR VOS? TLIRN "i :imn 

X$;CLS 

248 R=968+RND(28):fl=28:flH=RND(3)+l 

2M R1=38:R2=8:R3=1:CT=8:CP=8 

388 G0Sl»588:60SUB688 

318 S(LGft)=CT+CP*5 

328 IFZ+i>PLGOTO350 

338 PRINT8896,PL$(Z+1) 

335 INPUT"PRESS =ENTER= FOR YOUR TURN ";fW:CLS 

358 NEXT 2 

368G0SUB7e8 
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im fCXT Gfi 

400 PRINT§%0, "PRESS =ENTER= FCiR RNOTHER Gfll€ "i •.INPUTfl$:RUN 

500 PRINTeR,R$:IFRND<CN)=lPRINTeR+RND(18>-6LRC*i :CP=CP+1 

502 PRINT§0,CT+CP*5; 

505 PRINT(?fl.fl$i :IFP0INT<fl*2,5)0RP0INT(fl*2+2,S)RETURN 

510 R2=R2+1 : IFR2>R1THEM?1=RND(10)+C:R : R2=0 ; R:<=-R?. 

515 R=R+R3:IFR>995THENR=995ELSEIFR<960THENR=960 

520 C$=INKEY$: IFC*="B"MNfl=fl-ffELSEIFC$="N"Tf€Nfi=fl+ftt1 

520 IFfl<:5THENfl=5ELSEIFfl>60THEm=60 

590 F0RC=1T0CS:NEXT:CT=CT+1 

599 QOTO500 

600 t11=R*2+2 

610 F0RN=2T06+Rtt)(5) 

615 F0RM=I11T(»I1+N*4:IFRND(4)>2G0T0625 

616 IF!K0ORM>127GOTO625 
620 SEKM, N) 

625 NEXT: I11=M1-RN0(4): NEXT 

650 RETURN 

700 aS:PRINT@18,"* C L L I S S I N *" 

705 PRINT0200, "ROUND :" 

710 PRINT§248, "TOTALS" 

715 FCRI=lTCff>L : PRINT§I*128+192, PL$(I )i : T< I )=0 : NEXT 

720 FORI=lTOGfl:PRINT8I*7+204, 1; :NEXT 

720 F0RI=lTOGfl+l:F0RJ=lTOPL 

722 PRINTei*7+J*128+2^CHR$<191)i 

724 NEXT:NEXT 

740 FORI=lTOPL+i:PRINT§I*128+mSTRlNG$(64,140)j :NEXT 
750 Fa?I=lTOPL:Fa?J=lTO(» 

754 T(D=T<I)+S(LJ) 

755 PRINTC*I*128+J*7+202, S<L J)i 
759 NEXT:NEXT 

770 F0RI=1T«>L : PRINT0I*128+248, T( I ); ; rCXT 
799 RETURN 
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nKt a pmn. 



This month in our Take A Part feature, instead of looking at the 
way our program does something/ we will consider an alternative. 
Once you have Conision entered into your computer and working, 
substitute this for the present line 520: 

520 C=PEEK(15ie0):IF C=32 THEN fl=fM*l ELSE IF C=64 THEN fl=fl+fll1 

Now play the game, using the right and left arrow instead of B and 

N. 

This moves the car as long as the key is held down. There are a 
number of PEEK locations that can be used, but 15100 was chosen 
because it is a nice round figure. Here are some of the possible 
contents for location 15100: 

No key Pressed 

Up Arrow 8 

No Key Pressed 

Up Arrow 8 

Down Arrow 16 

Left Arrow . 32 

Right Arrow 64 

To explore this feature, enter this program in memory and play 
with the different keys on the keyboard: 



1000 CLS 

1010 PRINTC-0. ""; :FOR M=15060 TO 15150 

1020 PRINT M;PEEK<ri>j 

1030 NEXT 

1040 GOTO 1010 
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/ Tieference\ 



zso 

Instruction 
Handbook 



#C««mM in IW«H«l>«r> « 




Z80 Instruction Handbook 

Scelbi Publications 
Convenient pocket-size manual describes 
ZSO capabilites in easy-to-understand 
terminology. Designed as a practical 
reference to mnemonics, machine codings 
and usage — for programmers of every 
level, from beginner to professional ... 
anyone working in Z80 machine or 
assembler language. 

Price, $4.95 + $1.00 handling 



SARGON 

A COMPUTER 
GHESS PROGRAM 

OMUOMIHESPRACKLEN 



Wmet-!978 Wesf Coast CompuHf f^' 



fi 2! 



The BASIC Handbook 

Dr. David A. Lien 
Definitive reference work 
explaining over 50 versions 
of the language in detail. All 
you need to know about the 
major statements, functions, 
operators, and commands 
pertaining to use in micro, 
mini and mainframe com- 
puters. Price, $14.95 



immwxiiMmML 



Sargon: A Computer Chess 
Program 

Dan & Kathe Spracklen 
Documentation covering all 
algorithms in Sargon can be 
found in this comprehensive 
guide book. Contains table of 
contents, block diagram, 4 
part introduction, Z80 listing 
and index to subroutines. 
Price, $14,95 



TcE TRI-0O lofluicire EKchcinoe 

W t7 Briar ClltfDrlv* Mmord. Nm« Hampthir* 03055 
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AUnUTYPIIOOIIAM 
THAT GREATLY EXTENDS 
THE KEYBOARD. VIDEO, 

ANDPRIIfTER 

SUBROIITINEi IN YOUR 

LEVEL II ROMI 



by Lance Micklus 



KVP runs unctor DOS or Lavel II BASIC. It Is relocatable under youf^ 
control, and so may be used simultaneously with other machine 
lanouage programs. At least 16K of memory Is required. 

Hem ere some off the 

t you'll be able to do: 



USE AN BXreaNAL KEYaOARD 
Or, uM «iy othv Mrtal Input (tovlM 
In pten or ttw Tfl8-ao ktytovd 



SIMULATE A RADIO SHACK 



printer 



S 



BJM1NATE A COMMON SOURCE 
OF PROORAM ERRORS tyy running 
your koytMMTd In uppor com only, or 
run In uppor/ lower case mode Just 
llkeatypMrritor 



USE MOST ANY ASCII SERIAL 
PRINTER such M Teletype 33 or 
Splntarm 



TELL THE TRS-SO YOU HAVE NO 
PRINTER AT ALL 



PRACTICALLY EUMINATE KEY- 
aOARD BOUNCE The amount of 
debouncing It uaer-adjueteble 



DISPLAY UPPER AND LOWER 
CASE LETTERS on your vidoo 



EXCHANOE PROGRAMS WRRTEN 
IN BASIC WITH OTHER COM- 
PUTERS From ttte Sorcerer to tfie 
IBM 370 (and TRS-SO'i. tool) 



rn 



THE LIST GOES ON AND ONI 



S«lf-r«loeating for 16K, 32K or 48K systoms 
S24.9S on tap* $29.95 on disk 



IkC TRS-80 Sof luiQfc Eiicli<iA9e 



17 
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PROGR/1MMIMG mMT 



One way to add interest to a ganne is with real tinne action. This 
routine will pause a few seconds for an input, then continue if none 
is given, setting an input flag (!$= "F") to indicate that no input 
was provided. Then you can test for 1$ equal to F to assess a penalty 
if you wish. The timing can be adjusted with the FOR loop. 

10 FOR A = 1t6500:I$=INKEY$:IF I$'V" THEN NEXT:I$='T" 
20 IF l$='T" PRINT 'YOU WERE NOT FAST ENOUGH!" 



DISK DRIVES 
Now in Stock 

The TRS-80 Software Exchange is pleased to 
offer single and dual Percom Disk Drives for 
your TRS-80. These are reliable, high quality 
drives, fully compatible with the TRS-80 and 
Radio Shack's drives. 

Enjoy these advantages: 

• Fast access time 

• 110K/40 tracks vs. Radio 
Shack's 89K/35 tracks 

• Lower cost ■— save $100 over 
comparable units 

• Available NOW! 

Single Drive $399.00 
Dual Drive $799.00 

Cable (required) - $29.95 

NOTE: All disks require TRSDOS software, available only from Radio Sfiack. 

TfCTRS-60 JeftuKifC EKchcinoe 

W 17 Briar Cliff Drive MItford. Nsw Hampshlr* 03055 



70 



I 

N by BUS -80 

V 

E 

N 

T 

O 

R 

y 




*S' 



Inventory *S* is an exciting advance in 
small business software for the TRS-80. Its 
in-memory system of data storage solves the 
problems of both sequential and random access 
files while providing extremely fast, random 
access to any record. Other advantages include 
the ability to use any combination of characters 
for stock number, an exceptionally flexible record 
format (field names are user-definable), and the 
ability to store data to tape or disk and upgrade at 
any time. Up to 150 items can be stored per 16K of 
available memory, with stock number, descrip- 
tion, cost, vendor, reorder, and profit data in each 
record. An important feature is the ability to use 
your present stock numbers (a sort function is 
included), unlike competing systems which force 
you to use a different ''record number** 
User-definable screen and printer repK>rts let you 
see just the data you need, when you need it. 

Inventory 'S* is an extremely powerful 
business management tool which can be used 
effectively with a 16K, tape based system or a 
48K, disk and printer system — a claim nobody 
else can make! 

Tape version, 16K (min), Level II — $24.95 
32K Disk version - $39.95 

(same as tape, but on diskette with additional Disk I O) 



IB! 



TRI-60 loftuKMC CikIkia9« 

17 BRIAR CLIFF DRIVE MILFORD NEWHAMPSHiRt i3> 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 




V. 



NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors 
and omissions inTRSDOS2 1 and disk BASIC, yet the two 
are completely compatible! Programs and files saved under 
one can be used with the other interchangeably. Going from 
TRSDOS 2 1 to NEWDOS is like going from Level I to 
Level II: more power, more convenience, greater speed. 

NEWDOS has the power to: 

•Use all DOS commands ^Open 'E' to add to 

(incl. directory) in BASIC sequential files 

•Automatically load and run •Append files 

a BASIC program •Use your line printer as 

on power-up a screen printer 

•Produce variable cross- •Renumber BASIC programs 

reference tables •End keyboard bounce 

And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 

You paid $500 for your disk drive — 
why struggle with it? 

Apparat s NEWDOS is fully documented and available 
for only $49.95 from 

TcC TRi-ao lof iwQM C11CI10119C 
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IfNEWDOStethei 

systems, then NEWDOS+ hastobethe 

Ferrari. NEWDOS + retains all the features of 

the original NEWDOS, and adds 

the following utilities: 



Edilor-assemblef for disk O 

Dbassembler (ZBO machine code) C 

LM Offset-allows transfer of any system tape to a Q 

disk file (automatically relocated) 

BASIC1-Level one BASIC saved on disk 

LV1DSKSL - not a typo, this saves and k>ads BASIC1 

programs to disk 
DIRCHECK-tests and lists disk directory O 
Superzap-dlsplay/print/modify any kKation C 
in memory or on disk 



g 



V. 



Superzap alone is worth the price of this 

package. With it, we've quickly recovered lost 

programs, restored killed data files, and 

saved many hours of effort. The NEWDOS + 

manual is another plus: dear and concise, it 

even includes a byte4»yobyte explanation 

of the directory file ... 

invaluable if you ever need to 

save a crashed disk! 

The price for all this computer power? That's the best parti 

NEWDOS-I-, Justf»9.95 

NOTC: Um ol iMi mttmn tim i«qulr» deeufiNnMlan tNtU»b»» only wNh ttw 
puwh—e>Hidlo8hM h TW800>2.1ind<crlt»Ridlo«lwc h edllor»AMi m t H r 

MTIU-M MlivQM CncImmmc 

# IfMsrOIMDrtwo IMNmC Now HompsMfO «MM jm 
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Warfare I 4-game anthology, Le- 
vel II, 16K $7.95 
Backgammon by Scott Adams 
Level ll,16K$7.95 
X-Wing Fighter II by Chris 
Freund Level II, 16K $9.95 
Taipan by Art Canfil - Level II, 
16K $9.95. * 

Cribbage by Roger W. Robitaille, 
Sr. Level I or II, 16K $7.95 
Sargon Chess by Dan & Kathe 
Spracklen Level II, 16K $19.95 
Chess Companion by Michael 
Kelleher Level II, 16K $7.95 
Three D Tic Tac Toe by Scott 
Adams Level I or II, 16K $7.95 
Concentration by Lance Micklus 
Level I or II, 16K $7.95 
Amazin' Mazes by Robt. Wallace 
Level ll,16K$7.95 
Time Bomb by David Bohike 
Level I or II, 16K $4.95 
Balloon Race by Dean Powell, 
Level II, 16K, $9.95 
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Snake Eggs with sound by Leo 

Christopherson Level II, 16K 

$14.95 

Life Two by Leo Christopherson 

with Sound, Level II, 16K $14.95 

Android Nim with sound by Leo 

Christopherson Level II, 16K 

$14.95 

Cubes by Leo Christopherson 

Level II, 16K $9.95 

Mastermind II by Lance Micklus 

$7.95 

Mastermind II source list $20.00 

Robot/Breakaway Game duo by 

Lance Micklus Level II, 4K $7.95 

Tycoon by David Bohike Level II, 

16K$7.95 

Slalom by Denslo Hamlin Level 

ll,16K$7.95 

9 Games for Preschool Children 

by George Blank Level II, 16K 

$9.95 

Ten Pin by Frank B. Rowlett, Jr. 

Level ll,16K$7.95 

All Star Baseball by David 

Bohike, Level II, 16K $7.95 



End Zone by R. W. Robitaille, Sr. 
Level I or 11,1 6K $7.95 
Atlantic Balloon Cross by Dean 
Powell Level II, 16K Special price, 

$99.95 
Space Battles by Level IV, Level 
II, 16K Tape or 32 K Disk, Tape - 
$14.95, Disk- $19.95 
X-Wing Fighter by George Blank 
Level II, 16K $7.95 
Star^Trek III.3 by Lance Micklus 
Level II, 16K $14.95 
Dog Star Adventure by Lance 
Micklus Level II, 16K $9.95 
Adventures on tape by Scott 
Adams Level II, 16K Choose one: 
Adventureland, Pirate's Cove, 
Mission Impossible, The Count, 
Voodoo Castle, $14.95. 
Adventures on disk by Scott 

Adams. Pirates Cove plus Adven- 
tureland, The Count, Voodoo 
Castle for 32K disk system 
$24.95. 

Safari by David Boh Ike Level II, 
16K$7.95 

Treasure Hunt by Lance Micklus 
Level I or II, 16K $7.95 
'Round the Horn by George 
Blank Level ll,16K^9.95 
Pork Barrel by George Blank 
Level ll,16K$9.95 
Kamikaze by Russell Starkey 
Level II, 16K $7.95 
All Star Baseball by David BohIke 
Level II, 16K $7.95 
Air Raid by Small System Soft- 
ware Level I or II, 4K $14.95 
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Appointment Log by Michael 
Kelleher Level II, 16K $9.95 
Accounts Receivable II by S. 

Hebbler 32K disk systems $79.95 
Inventory II by BUS-80 Dual disk 
systems only $150.00 



Mail List II by BUS-80 32K disk 
systems $99.95 

General Ledger I by Michael 
Kelleher 32K disk systems 
$79.95 

Payroll by Stephen Hebbler for 
disk systems $59.95 
Small Business Bookkeeping 
by R. W. Robitaille, Sr. Level I 
or II, 4K with journal $22.00 
without journal $15.00 
Small Business Bookkeeping for 
Disk by Miller Microcomputer 
Services and R. W. Robitaille, Sr. 
32K$24.95 

Inventory 2.2 by M. Kelleher and 
^ R. W. Robitaille, Sr.16K disk 
systems $59.95 

Inventory Modular by R. W 
Robitaille, Sr. Level I or II, 16K 
$20.00 

Inventory System 2.3 by M. 
Kelleher. Improved version, 
$99.95 

Electric Pencil by Michael Shray- 
er, Level II, 16K, 32K Disk, 
$150.00 

Accounts Receivable II by S. 

Hebbler, Requires 32K disk 
system, $79.95 

General Ledger I by M. Kelleher, 
requires 32K Disk, $79.95 
Small Business Bookkeeping For 
Disk, by Miller Microcomputer 
Services and Roger W. Robi- 
taille, Sr., 32K Disk. With journal 
$31.95; without journal $24.95. 

Calculator by R. W. Robitaille, 
Sr. Level I or II, 4K $2.95 
NEWDOS by Apparat $49.95 
NEWDOS-h by Apparat $99.95 
Moving Signboard by Circle 
Enterprises Level I or II, 4K 
$9.95 



Three Monitors for Disk by Small 
Systems Software Disk for 16 
through 48K (all on one) $29.95 
Math Drill by D. L. Brown Level 
ll,16K$4.95 

RPN Calculator by Russell 
Starkey Level II, 16K $9.95 
Ham Radio by Michael Kelleher 
Level II, 16K $9.95 
Ham Radio ARS 1.1 for 32K disk 
$24.95 

Electronics Assistant by John 
Adamson Level II, 16K $9.95 
Pref light by Stephen Hebbler 
Level II, 16K $20.00 
KVP Extender by Lance Micklus 
Tape, $24.95 Disk, $29.95 
KVP 232 by Lance Micklus - KVP 
adapted for the TRS-232. 
Tape $44.95 

ST80 Smart Terminal Level II, 
16K $49.95 

ST80D SMARTER Terminal for 
disk systems $79.95 
Basic Statistics by Steye Reisser 
Level II, 16K $20.00 
Micro Text Editor by Don Coons 
Levelll,4Kor16K$9.95 
TextSO by Frank B. Rowlett, Jr! 
For 32K disk systems $59.95 
Drill Masters by Computer 
Graphics — specify title desired 
Level II, 16K $7.95 EACH: 
German, Chinese, Russian, It- 
alian, Spanish, or Music Theory. 
8080-Z80 Conversion Level II, 
16K $15.00 

Renumber by Lance Micklus 
Level II, available in 4 through 
48K (specify when ordering) 
$15.00 

Renumber source listing $20.00 
Renumber on disk all 
versions on diskette $25.00 



Machine Language Monitor by 

Small Systems Software Level I 
or II, 16K $26.95 

Fortran by Microsoft, 32K 2 
Disks - new low price $195.00 
MMSForth by Miller Microcom- 
puter Service, 16K Disk - power- 
ful new compiled language - 
$65.00 with documentation. 
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Tarot by Frank B. Rowlett, Jr. 

Level I or II, 16K $9.95 

Biorhythms by Frank B. Rowlett, 

Jr. Level I or II, 4K $4.95 

Personal Finance by Lance 

Micklus Level II, 16K $9.95 

Advanced Personal Finance by 

Lance Micklus For 32K disk 

systems $24.95 

Keyboard 80 J ames Garon Level 

ll,16K$9.95 

Home Financial Management by 

Michael Kelleher Level II, 16K 

$9.95 

Keyboard-80 by John Adamson, 
Level If, 16K $9.95 



For more detailed descriptions 
of our TRS-80 software and 
accessories, send for the TSE 
catalog — it's free! Write or 
ca 1 1 today for you r copy : 

TRS-80 Software Exchange 
17 Briar Cliff Drive 
Milford, NH 03055 

603-673-5144 
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Sargmi Handbook by Dan & 

Kathe Spracklen $14.95 plus 

$1.00 shipping 

Tke BASIC Handbook by Dr. 

David A. Lien $14.95 plus $1.00 

shipping 

ZtO Instruction Handbook by 

Sceibi Publications $4.95 

The littie Bookof BASIC Styk by 

John Nevison $5.95 plus $1.00 

shipping 



HHRDlUnRE 



ncccssoRics 



Ciiottffi boxes of ten each. 
C-10, $6.50 plus $1.00 shipping 
C-20 $7.50 plus $1 .00 shipping 



Diskettet Dysan, box of 5, $24.95 

plus $1.00 shipping Verbatim, 

box of 10 $34.95 plus $1.00 

shipping 

Diskette Storage Box $5.00 

TRS 232 by Small Systems 

Software $49.95 

PeroHn Disk Drives single or 

dual, for TRS-80's. Single drive - 

$399.00; Dual Drive - $799.00; 

Cable (required) $29.95 

Floppy Armour.^ Protective 
envelope for shipping fbppy 
disks. 5-pack $4.95 plus $1.00 
shipping & handling 

16K Memory Kits by Ithaca 
Audio, 16K RAM's $99.95 



TSE 



Been searching for an 
easy way to get into 
madiine language? 

SIMPLE SIMON, pub- 
lished in the March 1979 
issue of PROG/80, comes 
to your rescue. Features 
included are: 

•Program entry 
•Hex and decimal 
constants 

•Memory scan/display 
•Disassembler 



aiiiPi4 
amAii 

by Rev. George Blank 



Find out what's going on in your 
Level II ROM, examine and 
modify the DCB's, create 
machine language subroutines, 
and more! written in BASIC so 
it's easy to understand and 
customize. 

A lot of computer power 
for just $4.95 



V 



TRi-ao 

17 Briar Cliff Drive 



Milford.NH 03055 
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High density, oltra Uglitweight polymer shipping 
envelopes for floppy disks. Best protection available 
against maO damage. 

I i r j 

5-pack — $4.95 plus $1.00 shipping cliarge 
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